Search and replace trouble.

[Jesse_Smith]

I got

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

and I'm trying to change them to

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

just messing with the name part. I got

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

but it's not even close to doing it right. It for example, moves the last name to right before the town name, replaces part of the street number to a period, and moves the Town name to after the Zip code. How do you get it to only mess with the

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

part and change it right!

[janharders]

### stands for NUMBER?

I believe

$string =~ s/(\d+),"([^,]+), ([^"]+)","/$1,"$3 $2","/gis;

should do the job, but maybe I missed something...

[KwikDrySystems]

I'm assuming the ### is the ip address? If so, janharders comment should fix the problem. If not, let us know and we'll figure it out.

[edited by: engine at 1:00 pm (utc) on Jun 2, 2011]
[edit reason] promo [/edit]