Select Code to Download

    ### Open a handle on a string, read it line-by-line, then close it
+:
    $SH = new IO::Scalar \$data;
...
        print "Got line: $_";
    }
    $SH->close;

use warnings;
use strict;
...

# or, if you prefer the one-liner look
print for split ( m[(?<=$/)], $string );