РЕГУЛЯРНЫЕ ВЫРАЖЕНИЯ

[perloffka]

Здравствуйте, уважаемые программеры.
Мой вопрос кажется мне очень сложным, но для вас, возможно, это ерунда.

нужно заменить
*Xyyy*
на
*<b>Xyyy</b>*

Где:
* - любое кол-во любых символов
X - известный символ
y - 1 неизвестный символ

Спасибо.

[metton]

$YourStr =~ s/(.*)(X.{3})(.*)/\1<b>\2</b>\3/;

например, так
только в данном пример поятие ЛЮБОЙ символ исключает "\n"