my $answer;
print "Enter your text: (type END to exit)\n";
while (<STDIN>) {
    last if /^END$/;
    $answer .= $_;
}