print "$+{first} $+{last}\n" 
    if m/^
        (?<last>    [^%]+ ) %
        (?<first>   [^%]+ ) %
        (?<id>    A [^%]+ )
       /x;

##</code><code>##

print "$2 $1\n"
    if m/^([^%]+)%([^%]+)%(A[^%]+)/;