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

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