Hello     

##</code><code>##

use strict;

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


my $str = "   Hello     ";
$str = trim($str);
print $str; #"Hello"