You will (should) be able to get more if you accept it as lines (where newlines come before the limit is reached) instead of a single string. Try this-

print "Enter text with returns. Press Control+D to submit-\n";
my @input = <STDIN>;

print join("", @input);
[download]