Help for this page

Select Code to Download

Select or download this

sub trim($)
{
...
    $string =~ s/\s+$//;
    return $string;
}