#!/usr/bin/perl

@pliczek = <>;
while($_ = pop @pliczek) {
        chomp;
        next unless /(.*)\|(.*)/;
        print "insert into tabelka values('$1', '$2');\n";
};