if (/-S.+?($servname).+-D.+?($servname).+-C.+?($servname).+$/) { print "Server after -S: $1; Server after -D: $2; Server after -C: $3;\n"; } else { print "Unknown record structure: $_\n"; }