mach mal hinter das =~ ein s, damit das da steht: =~ s/$_/<b>$_<\/b>/g;

das substr() gibt's auch in Perl!