for () { print "Matched: $1\n" if /DIP\s+\S+\s+([^\\\s]+).*?\\n/; }; __DATA__ *** ALARM 009 A2/APT \"KEN5-132/019/00\" 100831 1511 \nSWITCHING NETWORK TERMINAL FAULT\n\nSNT TCASE STATE FCODE SUBSNT INFO DIP amad theoneiwant\n RTDMA-63 4 BLOC 38\n\nEXTERNAL EQUIPMENT FAILURE\n\nEXTP MG\n2-2-010109 MEAPH\nEND *** ALARM 009 A2/APT \"KEN5-132/019/00\" 100831 1511 \nSWITCHING NETWORK TERMINAL FAULT\n\nSNT TCASE STATE FCODE SUBSNT INFO DIP amad theoneiwant \n RTDMA-63 4 BLOC 38\n\nEXTERNAL EQUIPMENT FAILURE\n\nEXTP MG\n2-2-010109 MEAPH\nEND *** ALARM 009 A2/APT \"KEN5-132/019/00\" 100831 1511 \nSWITCHING NETWORK TERMINAL FAULT\n\nSNT TCASE STATE FCODE SUBSNT INFO DIP amad theoneiwant hello world \n RTDMA-63 4 BLOC 38\n\nEXTERNAL EQUIPMENT FAILURE\n\nEXTP MG\n2-2-010109 MEAPH\nEND *** ALARM 009 A2/APT \"KEN5-132/019/00\" 100831 1511 \nSWITCHING NETWORK TERMINAL FAULT\n\nSNT TCASE STATE FCODE SUBSNT INFO DIP amad theoneiwant\n RTDMA-63 4 BLOC 38\n\nEXTERNAL EQUIPMENT FAILURE\n\nEXTP MG\n2-2-010109 MEAPH\nEND