Select Code to Download

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

$foo = "1";

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