knoppix@Microknoppix:~$ perl -Mstrict -wE ' > my $pbxiplp = < (3.3.3.3,4.4.4.4,) > EOF > print $pbxiplp; > > my $pbxiplp1; > open my $inFH, q{<}, \ $pbxiplp or die $!; > open my $outFH, q{>}, \ $pbxiplp1 or die $!; > while ( <$inFH> ) > { > s{ , (?= \) ) }{}; > print $outFH $_; > } > close $inFH or die $!; > close $outFH or die $!; > > print $pbxiplp1;' (3.3.3.3,4.4.4.4,) (3.3.3.3,4.4.4.4) knoppix@Microknoppix:~$