$t = "-ab-cd-";

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