sub clean {

$line = @_[0];
$line =~ s/;.*//;
$line =~ s/[\~\!\#\$\%\^\&\*\(\)\|=\+\\\|\[\]\{\}\:\'\"\<\>\?\/\,]//g;
return($line);
 
}
1;