#define the sub
sub strip_space
{
    # remove whitespace and retrn true on success
    $_[0] =~ s/\s+//g;
    return 1;
}