use re 'debug';

foreach (qw( abc abc def )) {
   print("==============================\n");
   print("$_\n");
   print("\n");
   /$_/;
}