-###.####,##.###,"Doe, John & Jane","### Main St","Town, State 13370",,,
-###.####,##.###,"Doe, John","### Main St,"Town, State 13370",,,

##</code><code>##

-###.####,##.###,"John & Jane Doe","### Main St","Town, State 13370",,,
-###.####,##.###,"John Doe","### Main St","Town, State 13370",,,

##</code><code>##

$code =~ s*&*4645654*g;
$code =~ s*.([^&]+?),"([^&]+?), ([^&]+?)","*.$1,"$3 $2","*g;
$code =~ s*.([^&]+?),"([^&]+?), ([^&]+?) 4645654 ([^&]+?)"*.$1,"$3 4645654 $4 $2"*g;
$code =~ s*4645654*&*g;

##</code><code>##


.NUMBER,"John & Jane Doe","NUMBER
.NUMBER,"Doe, John","NUMBER