- or download this
$line = qq{10 PRINT "<29>This should be dim.<30>EThis should be revers
+ed.<28>This is bold."};
...
#or
# $line =~ s/("[^"]*")/my $s = $1;$s =~ s{(<\d+>)}{$fix{$1}}g;$s/ge;
- or download this
$line =~ s/"([^"]*)"/my $s = $1;$s =~ s{(<\d+>)}{$fix{$1}||$1}ge;'"'.$
+s.'"'/ge;
- or download this
$line =~ s/("[^"]*")/my $s = $1;$s =~ s{(<\d+>)}{$fix{$1}||$1}ge;$s/ge
+;