Help for this page
$output_line = "$3$2$1" if $input_line =~ /^([a-z][a-z\s]*[a-z])(\W+)(\d[\d-]*\d)$/i;
Mary Smith = 345-78-9090 Joseph Alioto 976-83-1234
345-78-9090 = Mary Smith 976-83-1234 Joseph Alioto