#!/usr/bin/perl -wuse strict;print "Please enter some text:\n";while () { next if $_ eq "\n"; chomp; print "You entered: [$_]\n";}