chomp ( my $input = <STDIN> );