$output_line = "$3$2$1"
        if $input_line =~ /^([a-z][a-z\s]*[a-z])(\W+)(\d[\d-]*\d)$/i;

##</code><code>##

Mary Smith = 345-78-9090
Joseph Alioto 976-83-1234

##</code><code>##

345-78-9090 = Mary Smith
976-83-1234 Joseph Alioto