#Remove all the unicode characters
sub sanitize
{   my $unicode = $_[0] ;
    my $ascii ;
    for my $char (split(//, $unicode)) 
    {   $ascii .= $char if ord($char) < 256  }
    return $ascii; 
}