$_ = $parameter;
($n_dice,$nsides) = /^(\d+)d(\d+)/;