DB<1> $c = "The black dog and the black cat";

  DB<2> print "Matched" if $c =~ /(bl..k).+\1/;
Matched