replace last REGEX match

[RottPaws]

I have a string of comma delimited numbers and I want to replace the last comma with ' and '.

I can write a regexp to find the last instance of ', ', but I haven't been able to figure out how to replace just that. It drops the last order number from the string

$ord_list = '12345678, 23456789, 34567890, 98745632';
$ord_list =~ s/(, )\d+$/ and /;

result: $ord_list = '12345678, 23456789, 34567890 and '

_________
Rott Paws

...It's not a bug. It's an undocumented feature!!!

 

[RottPaws]

I figured it out using the lookahead assertion.

$order_list =~ s/(, )(?=\d+$)/, and /;

_________
Rott Paws

...It's not a bug. It's an undocumented feature!!!

 

[rharsh]

Here's another way, with a less complicated substitution.

$_ = '12345678, 23456789, 34567890, 98745632';
s/(.+),/$1 and/ && print;

Which prints

12345678, 23456789, 34567890 and 98745632