Help for this page

Select Code to Download

Select or download this
```
($line)=split(' ',$line,1)
```

Select or download this

[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