while (<DATA>) {
    s/\\n/\n/g;
    print "Matched: $1\n"
        if /DIP\s+\S+\s+(\S+).*?\n/;
    
}