$data = "Johnson%Andrew%AX321%Engineer" ;
$data = "Smith%John%BC142%Alberta";


##</code><code>##

print "$2 $1\n" if m/^(.*?)%(.*?)%A/;

##</code><code>##

Andrew Johnson       ## output Ok 
John%BC142Smith      ## Wrong