#!/usr/bin/perl
use strict;
use warnings;
#******************************
my @tab_filtr=();
my @tab_parametr=();
my $tmp=<STDIN>;
my $c=0;
my $liczP=0;
my @buf;
my $liczF=0;
while($tmp ne "<<KONIEC>>\n")
{
chomp($tmp);
if($tmp =~/^-/)
{
$tmp=~s/^-//;
@buf=split(//,$tmp);
print length(@buf);
}
else{
$tab_parametr[$c]=$tmp;
$liczP++;
}
$tmp=<SDIN>;
}
#************************
if($liczP < $liczF){
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";