Как на Perl добавить символы к строке по условию?

Т.е. такое дело.... читаем строки из файла, что-то там с ними делаем.... а потом то, что получилось, нужно ещё раз обработать - добавить символ перевода каретки, но не везде, а по условию... т.е. если встретили конкретные символы, то после них добавляем \r\n.

Подскажите, как такое сделать? (в том, что это сделать можно - даже не сомневаюсь, на то и перл...)

Спасибо!