Select Code to Download

my $data = do { local $/; <DATA> };
@array = split 'on something', $data;

while ( my $line = <DATA> ) {
    # handle the line here instead of as an element of an array
}

use Path::Tiny 'path';
my $file_path = '/foo/bar/baz.txt';
...
    chomp $line;
    ...
}