Select Code to Download

use strict;
use warnings;
...
sadfhk34t3wtg
sdfhk3gfwghhw3
jacob - 2.0

my $buffer;
while (<DATA>) {
...
        $buffer = '';
    }
}