Help for this page

Select Code to Download

Select or download this

  my  $thing = '1232-32';
  my  $value;
...
  } else {
    printf "I didn't find what I was expecting in '%s'\n", $thing;
  }

Select or download this
```
  if( $thing =~ m/^\d+-(\d+)$/ ) {
```