if ( $line =~ /\d{4,}/ { $date = $1; }