Select Code to Download

open(my $fh, '>', 'my_file.txt');

or die "...";

edit_file('my_file.txt');

open(my $fh, '<', $myfile) or die "Unable to open file\n";

...
    unless (/^[a-z]/)  # <-- here
    {
        ...