Select Code to Download

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

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