my $answer; print "Enter your text: (type END to exit)\n"; while (<STDIN>) { last if /^END$/; $answer .= $_; } [download]
In reply to Re: Multi-Line Input by ssandv in thread Multi-Line Input by Anonymous Monk