multiliner.pl

#!/usr/bin/perl
use strict;
my $filename = shift;
open (FILE, "<", $filename)  or  die "Nincs ilyen fajl: $filename : $! \n";
my $whole_file;
{
    local $/;
    $whole_file = <FILE>;
}
close(FILE);
while ($whole_file =~ m#(0022..\n0112..\n0121..\n0220..\n0301..\n1003..\n1012..\n1030..\n1111..\n1120..\n1210..\n1300..\n2002..\n2011..\n2101..\n3100..\n)#sg) {
    print $1 . "\n";
}