$l=<>; $l += $l == 20 ? 10 : 12; print substr(join("",<>) =~ s/\n//gr, 0, $l)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page