$p =~ /\d/  ? '$' . $p     : # single digit - add a $