naja, du hast kein match drin, dadurch wird $_ nur mit "hats geklappt?" belegt - und da es klappt, ist $_ 1. nimm einfach mal

foreach($t =~ /-([a-z][a-z])-/g) { print "$1 " }