my $two = substr($val, -2)
  if substr($val, -3, 1) eq '-';