my $line= Filter {chomp} readline(STDIN);