Concatenating Strings

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