#!perl -w

@bold = ("print","binmode");
$string = "print";

foreach (@bold)
{
	$string =~/$_/<b>$_</b>/g;
}

print $string;