#this script will have fun with pattern matching.

@strings=("PERL IS FUN!!","perl is fun.","PeRl is confoozing!!",
		"i am confoozled...");

for $i(0 .. $#strings) {
	print "\nFor the string '$strings[$i]',\n";

	print "'perl':\t\t\t\t\t\t";
	print "not " if ($strings[$i]!~/perl/);	#if-statements w/no
	print "present\n";			#brackets

	print "'perl' or 'PERl' or other variant thereof:\t";
	print "not " if ($strings[$i]!~/perl/i);
	print "present\n";

	print "'confooz':\t\t\t\t\t";
	print "not " if ($strings[$i]!~/confooz/);
	print "present\n";
}
print "\n";

    Source: geocities.com/mara_042/perl

               ( geocities.com/mara_042)