open SOURCE_OF_INFORMATION, "the_source"; undef $/; local $_ = ; print "its a match!" if /$wanted_Author/ && /$wanted_Date/; $/ = "\n";