$name =~ s/^[$@%&<*]//;
my $sigil= $1 || '&';