sub cleanup 
{
 if ( $_[0] ) {
  $_[0]=~s/<//g;
  $_[0]=~s/>//g;
  $_[0]=~s/;//g;
  $_[0]=~s/\(//g;
  $_[0]=~s/\)//g;
  $_[0]=~s/\"//g;
  $_[0]=~s/\'//g;
  $_[0]=~s/\?//g;
  $_[0]=~s/script//g;
  $_[0]=~s/\///g;
  $_[0]=~s/>//g;
  $_[0]=~s/\*//g;
  
  return $_[0];
 } else { # I don't think this is the right way of doing it!
  return '';
 }
}