if ( $scalar !~ /[^12345]/ ) {
  print "match";
}