while ($line_data =~ /((?:2004|04).*?)1003/g) {
    print $date.$1."\n";
}