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