A better way would be to decode the lines, i.e. convert the "\n" into newlines.

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