Try this:

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

The "g" modifier means to replace globally, not just once (which is the default).

mr.nick ...