Essentially the same as stevieb's approach above, but I prefer a character class for this sort of thing (also untested):
    my $find = qr{ \A [AC] }xms;
Please see perlre, perlretut, perlrequick and perlrecharclass.