Select Code to Download

$string =~ s/^\S+//;  # assumed to remove *all* whitespaces from the b
+eginning
$string =~ s/\S+$//;  # assumed to remove *all* whitespaces from the e
+nd

$string =~ s/^\s+|\s+$//g;  # /g needed here

#!/usr/bin/perl
# vi:ts=4 sw=4 et:
...
        }
    }
);

         Rate   r1 r2/g   r2
r1   135605/s   -- -19% -25%
r2/g 168081/s  24%   --  -7%
r2   181494/s  34%   8%   --