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

##</code><code>##

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