Проблема с оператором поиска по шаблону m// в PERL

Вид для печати