#!/usr/local/bin/perl
$resultstring = "";
print("Enter your input - type an empty line to quit\n");
$input = ;
chop ($input);
while ($input ne "") {
$resultstring .= $input;
$input = ;
chop ($input);
}
print ("Here is the final string:\n");
print ("$resultstring\n");