print "Enter a string that will match the secret matching pattern \n";
   chomp (my $selection  = <STDIN>);

   if ($selection  =  (/(.)\1/)) {
      print "The match was perfect \n"; 
    } else {
      print "Match not found \n";
    }