$foo = "1";
if ( $foo =~ /^[a]+/ ) {
  print "Match\n";
}