>perl -wMstrict -le
"my $li = 'foo';
 ;;
 print qq{matched '$&' in '$li'}
   if $li =~ m{http://www.[a-z]|[A-Z].[a-z]}i;
"
matched 'foo' in 'foo'