while(<FH1>)
 {

    if #(/(19\d{2})/gi)
    (
    (/(\d{1,2}\-\d{1,2}\s\w+\s(19\d{2}))/gi)
    ||
    (/(\d{1,2}\w{2}\s\w+\s(19\d{2}))/gi)
    ||
    (/(\d{1,2}\s\w+\s(19\d{2}))/gi)
    ||
    (/(\w+\s\d{1,2},\s(19\d{2}))/gi)
    ||
    (/(\w+\s\d{1,2}\-\d{1,2},\s(19\d{2}))/gi)
    )
  {

    print OUTFILE ("$filename\t $1\t \n");

  }
  }