for (<DATA>) {
   print "Matched: $1\n"
            if m/DIP\s+\S+\s+(\w+)/;     #([\w-]+) to allow -   
};