sub ascii_test{
my $string = shift;
if ($string =~ /[^\x00-\x7f]/){
   return "[$string] contains non ascii characters";
}
else{
   return "[$string] is all ascii";
}

}