Michael Alipio <daem0n...@yahoo.com> asked: > I have a $string that is separated by , and space; > > boy, pig, 123, 123:412adbd, d0g, lajdlf134><<_ lkadsf !234, > > > Now I want to capture the string(s) between last two commas. It consists > of anything upto 32 characters. that is, right after d0g,\s+ up to the > last character before the last comma at the end of the line.
#!/usr/bin/perl -w use strict; my $string = 'boy, pig, 123, 123:412adbd, d0g, lajdlf134><<_ lkadsf !234,'; if( $string =~ m/,\s*([^,]*),[^,]*$/ ){ print "$1\n"; } __END__ Depending on the input data size it might worthwhile to look at rindex() and substr() instead of using a RE. HTH, Thomas -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/