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