use strict;
use warnings;

my $input = <STDIN>;

printf "input: [%s]\n", $input;

my $return = chomp($input);
printf "return: [%s] input: [%s]\n", $return, $input;

$return = chop($input);
printf "return: [%s] input: [%s]\n", $return, $input;