# poorly implementing VBScript's 'trim' function:

trim( $somevar );

sub somevar {
    $_[0] =~ s/^\s*//;
    $_[0] =~ s/\s*$//;
}