Select Code to Download

open (IN, 'input.txt') or die "$!";
my $lines = do {local $/; <IN>};
...

# then I would use $1 - $5
}

BLAH BLAH BLAH KEY blah blah blah
BlAH BLAH BLAH ABD KEY blah blah
asdf asdf asdf asdf
BLAH ASDF PATTERN blah blah