my $x='http://www*perlmonks*org/';
my $y='http://www.perlmonks.org/';
sub{ if ($x =~ /^$y$/i) {} }