#!/usr/bin/perl -w my $line = '121212, "Simpson, Bart", Springfield'; print "Before: $line\n"; $line =~ s/"(.*?),(.*?)"/$1_$2/; print "After: $line\n"; #### Before: 121212, "Simpson, Bart", Springfield After: 121212, Simpson_ Bart, Springfield
## Before: 121212, "Simpson, Bart", Springfield After: 121212, Simpson_ Bart, Springfield