--------------------------
my $pattern = "homey";
my $value = "homeylovekins";
match();
$pattern = "wigwam";
match();

sub match {
	if ($value =~ /$pattern/o) {
		print "yes";
	} else { print "no"; }
}
-------------------------------------