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