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