sub clean
{
    chomp($_[0]);
    $_[0] =~ s/^\s+//g;
    $_[0] =~ s/\s+$//g;
}