#!/usr/bin/perl
use strict;
use warnings;
#******************************

my $zmienna=<STDIN>;
my @tab_filtr;
my @tab_parametr;
my @tmp;
my $licznik_parametrow=0;
my $licznik_filtrow=0;
my $dl;
#*********************************
while($zmienna ne '<<KONIEC>>\n'){
if($zmienna=~/^-/){
$zmienna=~s/^-//; #obcina znak "-"
$dl=length($zmienna);
if($dl==1){
if($zmienna eq "e"){$licznik_filtrow++;}
if($zmienna eq "x"){$licznik_filtrow++;}
if($zmienna eq "r"){$licznik_filtrow+=2;}
push @tab_filtr,$zmienna; 
}
else{
@tmp=split(//,$zmienna);
my $i=0;
while($dl!=0){
if($tmp[$i] eq "e"){$licznik_filtrow++;}
if($tmp[$i] eq "x"){$licznik_filtrow++;}
if($tmp[$i] eq "r"){$licznik_filtrow+=2;}
push @tab_filtr,$tmp[$i];
$i++;
$dl--;
}
}}
else {
 
$licznik_parametrow++;
push @tab_parametr,$zmienna;
}
$zmienna=<STDIN>;
}
#************************
if($licznik_parametrow < $licznik_filtrow){
print "Za malo parametrow!\n";
    exit; 
}
#*********************
my @wejscie=();
while(<STDIN>)
{
if($zmienna eq "\n"){
        last;
    }
    chomp $zmienna;
    push @wejscie,$zmienna;
}
#*********************************
print "@tab_parametr\n";
print "@tab_filtr\n";
print "@wejscie\n";