$filename=~ s/^[-.]//;

##</code><code>##

$filename=~ s/^[-.]*//;