foreach $Line (@code) {
 $Line =~ s!"(.*)"!<b>"$1"</b>!;
 print "$Line\n";
}