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

##</code><code>##

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