[0] # time perl -e 'for (1..1000000) { $line=" aaa bbb ccc ddd eee fff "; $line =~ s/\s+$//; $line =~ s/\s+$//;}' real 0m3.526s user 0m3.510s sys 0m0.000s