my $file = '.';

opendir(DIR,$file);
@files=readdir(DIR);
close(DIR);

for(@files)
{
if($_ =~ m{/s+})
{
		s/$_/_/g      
}
}