use 5.010;
for my $line (qw(
    Johnson%Andrew%AX321%Engineer
    Smith%John%BC142%Alberta
)) {
    my @fields = split /%/, $line;
    say "$fields[1] $fields[0]" if $fields[2] =~ /^A/;
}