Select Code to Download

#!/usr/bin/perl

...
  {
  print e() && /\G\z/ ? "matches" : "   fail", "  $_\n";
  }

matches  u
matches  udufu
...
   fail  ua
matches  uauau
matches  uccc