open(my $fh_daily_user_in, '<', $qfn_daily_user_in) or die("Unable to read file \"$qfn_daily_user_in\": $!\n");

while (<$fh_daily_user_in>) {
   if (/jay/) {
   print $_ , "\n";
    }
}