$fname =~ s/^s/_S/;