$file = $ARGV[0];
$find = $ARGV[1];
$replace = $ARGV[2];

@split = split(/\./, $file);
opendir(DIR, ".");

if ($file = /\*\.\*/) 
{
	@format = grep(/\./, readdir(DIR));			#	*.*
}
if ($file = ".\.\*")
{ 
	@format = grep($split[0]./\../, readdir(DIR));	# 	test.*
}
if ($file = "\*\..")
{	
	@format = grep(/.\./.$split[1], readdir(DIR));		#	*.txt
}
if ($file = ".\..")
{
	@format = grep($split[0]./\./.$split[1], readdir(DIR));	#	test1.txt
}

$file_count = 0;
for $file (@format)
{
...
}
...