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