chomp(my $answer=<STDIN>);

##</code><code>##

   chomp ( $in=<STDIN> );