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

##</code><code>##

$foo = "1";

##</code><code>##

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