my $output = `ls`;

##</code><code>##

while( <> ) {
    chomp;
    print "You pasted: [$_]\n";
};