>> Piers and Karsten both found shorter multi-line solutions: >> Piers: >> "Grr... that one line rule is *so* silly:" >> #!/usr/bin/perl -p0 >> $_=$1while/ >> (.+)^/ms >> >> Karsten: >> #!/usr/bin/perl -p0 >> $_=$1while/ >> (.* >> )./s >> > Both of these are really 25 chars (counting the \n's within the program as > one char unlike tsanta.pl) so are not really shorter. They're both really 24, because the \n after the #! line is free: you don't count that one for one-liners either.
- Karsten
