Select Code to Download

#!/usr/bin/perl

# Script to extract "item 7" from a 10-K report.
...
$x="";
while($line = <FILEREAD>) { $x .= $line; } # read the whole file into 
+one string
close FILEREAD;