Select Code to Download

$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;

$line =~ s/"([^"]*)"/my $s = $1;$s =~ s{(<\d+>)}{$fix{$1}||$1}ge;'"'.$
+s.'"'/ge;

$line =~ s/("[^"]*")/my $s = $1;$s =~ s{(<\d+>)}{$fix{$1}||$1}ge;$s/ge
+;