Select Code to Download

sub fullname {
  my (@parts) = @_;
...
  my $name = join(" ", @parts);
  return $name;
}

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