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