my $line= Filter {chomp} ''.<STDIN>;