if ($data =~ /patternmatch/i)
	{
		open FILY, ">bas2.txt";
		print FILY "Skip $data\n";
		return ">bas2.txt";
	}