in reply to How to output backtick or qx to a variable and STDOUT at the same time?
perl -e 'print $out=qx(ls );print "+" x 80 , "\n";print $out' [download]