#!/usr/bin/perl

open PLIK, "<$ARGV[0]";
while (<PLIK>) {
    if (my ($kod_pocztowy) = m/.*(\d{2}\-\d{3})/) {
        print "$kod_pocztowy\n";
    }
}

close PLIK;