{ local $/ ; while () { /^name\(([^)]+)\).+\{.+(\w{4}).+(\d).+/sg; print "$3:$2:$1\n"; } } __DATA__ name(DAWSON) { Team 1