perl -e '$a = "abcde"; print ($a =~ m/a.c/ ? "hit" : "miss");';