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