if ( $scalar =~ /^[12345]+$/ ) {
  print "match";
} else {
  print "no match";
}

##</code><code>##

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