Select Code to Download

#!/usr/bin/perl
use strict;
...
TEST =>

# And ignoring this

my $fileContent;
open(my $fileHandler, $inputFile) or die "Could not open file '$inputF
+ile' $!";
...
    $fileContent = <$fileHandler>;
}
close($fileHandler);

my $fileContent = do {
    open(my $fileHandler, $inputFile) or die "Could not open file '$in
+putFile' $!";
    local $/;
    <$fileHandler>;
};

if($fileContent =~ /\b\Q$beginString\E\b(.*?)\b\Q$endString\E\b/s){