#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11148100
use warnings;

for ( glob join '-', ('{-,}42') x 3 )
  {
  my ($X, $Y, $Z) = /(-?\d+)-(-?\d+)-(-?\d+)/;
  printf "%11s => %3s %3s %3s\n", $_, $X, $Y, $Z;
  }

##</code><code>##

-42--42--42 => -42 -42 -42
 -42--42-42 => -42 -42  42
 -42-42--42 => -42  42 -42
  -42-42-42 => -42  42  42
 42--42--42 =>  42 -42 -42
  42--42-42 =>  42 -42  42
  42-42--42 =>  42  42 -42
   42-42-42 =>  42  42  42