$test = "az";
print "Good\n" if $test =~ /a\s*z/;