unless ($str =~ tr/1-5//c){
   print "Valid\n";
}else{
   print "Invalid\n";
}
[download]

--perlplexer