John Douglas Porter wrote: > @lines = length($x) ? $x=~/^(.*)$/mg : (); ^ ^^ unnecessary
This is a little faster: @lines = length($x) ? $x=~/^.*/mg : (); /-\ http://greetings.yahoo.com.au - Yahoo! Greetings - Send some online love this Valentine's Day.