Select Code to Download

open(DAT, $data_file) || die("Could not open file!");
print "file opened successfully!! \n";

while (<DAT>)
{
   ...do something....
   ... print if /$pattern/;  # simple first attempt
}