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