$v=~/-([\d]+)$/ ? $1 : undef => [ $k, $v ];