Помогите новичку с первым скриптом на перле.

Search pattern not terminated at ./parse.pl line 4.

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

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

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

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

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

Спасибо. заработало.
Я пытался пихнуть в переменную потому, что мне нужно несколько строк.
То есть хочу добавить туда и файлы которые начинаются на :21: , :gewt: и т.п.

grep не предлагать?

не а.

То есть хочу добавить туда и файлы которые начинаются на :21: , :gewt: и т.п.

Тогда надо как-то так:

@tags = ('20', '21', 'gewt', 'etc');
if (/^\:(.+?)\:/) { 
  $tag = $1;
  $sender .= $_ if grep { $_ eq $tag } @tags;
}

Целиком как-то так:

#!/usr/bin/perl

use strict;

open (my $file, '<', 'file');
my @tags = ('20', '21', 'gewt', 'etc');
my $sender;

while (my $line = <$file>) {
  if ($line =~ /^\:(.+?)\:/) { 
    my $tag = $1;
    $sender .= $line if grep { $_ eq $tag } @tags;
  }
}
close ($file)

спасибо тебе добрый человек.

Я обескуражен, никто не кинул ни одного однострочника.

#!/usr/bin/perl -w

use strict;

open my $file, 'file' or die;
/^:20:/ && print while <$file>;
close $file;