my  $thing = '1232-32';
  my  $value;
  if( $thing =~ m/-(\d\d)/ ) {
    $value = $1;
    printf "I found '%s'\n", $value;
  } else {
    printf "I didn't find what I was expecting in '%s'\n", $thing;
  }