lcs

Подскажите, как сделать по аналогии с перлом
$val=~s/pattern/replacement/;

Т.е. что бы заменить не все паттерны в строке сразу,
а только первый попавшийся и закончить на этом?