if ($filename =~ /(.*)\.(.*)?/ig)
{	my $fname = $1;
	my $ext = $2;
		
	$fname =~ s/\W/_/g;
	$filename = $fname . '.' . $ext;
}
else
{	$filename =~ s/\W/_/g;
}