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