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