$s = "Test-01-xxx";
if ($s =~ /-(\d\d)-/g) {
  print "Pos: $pos - ", pos( $s )-3, "\n";
}