Help for this page

Select Code to Download

Select or download this

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