#!/usr/bin/perl
use strict;
use warnings;
#************************************
my @tab_filtr=();
my @tab_param=();
my @wejscie=();
my @tmp;
my $zmm;
my $a=0;
my $c=0;
my $liczP=0;
my $liczF=0;
my $dl=0;
#************************************
while($zmm <>)
{
if($zmm eq "<<KONIEC>>\n"){ last;}
chomp $zmm;
if($zmm=~/^-/){
$zmm=~s/^-//;
$dl=length($zmm);
if($dl==1){
if($zmm eq "e"|| $zmm eq "x") {$liczF++;}
if($zmm eq "r") {$liczF+=2;}
$tab_filtr[$a]=$zmm;
$a++;
}elsif($dl>1){
@tmp=split(//,$zmm);
for(@tmp){
if($_ eq "e"||$_ eq "x" ) { $liczF++; }
if($_ eq "r"){ $liczF+=2;}
push @tab_filtr,$_;}
}
}else{
$tab_param[$c]=$zmm;
$c++;
$liczP++;}
}
#***************************
if($liczP<$liczF){print "Za malo parametrow!\n"; exit;}
#****************************
while($zmm=<>){
    if($zmm eq "\n"){ last;}
    chomp $zmm;
    push @wejscie,$zmm;
}
#***************************
print "@tab_param\n";
print "@tab_filtr\n";
print "@wejscie\n";