use 5.010;
say "enter some text lines";
while (my $line = <>)
{
  say "\$line is [[$line]]";
  say "doing the chomp thing!";
  my $return = chomp $line;
  say "\$line is now [[$line]]";
  say "\$return is [[$return]]";
}