История изменений

$sender=(^\:20\:);

1. матчинг - это либо m(^\:20\:), либо /^\:20\:/
2. матчинг вернёт 0 или 1

Ну и нахрена делать чомп, если потом добавляешь перевод? Ну и ошибка в логике - $sender будет выводиться и для каждой следующей строки, не подходящей под условие

То, что ты хотел можно сделать например так:

print $_ if /^\:20\:/;

$sender=(^\:20\:);

1. матчинг - это либо m(^\:20\:), либо /^\:20\:/
2. матчинг вернёт 0 или 1

Ну и нахрена делать чомп, если потом добавляешь перевод? Ну и ошибка в логике - $sender будет выводиться и для каждой следующей строки, не подходящей под условие

То, что ты хотел можно сделать например так:

print «$_» if /^\:20\:/;