Select Code to Download

#!/usr/bin/perl

...
foo love bar we
foo we bar
love foo bar

foo we love bar
love we foo bar
foo love bar we

open my $fh, "<", $DataIn or die "Couldn't open '$DataIn': $!";

while (<$fh>) {
    ...