#!/usr/bin/perl -s

$usage = "
  -f  full format (includes file name)
  -h  displays this help and exits

";

if ($h) {print $usage;exit}

undef $/;

while ($s=shift) {push (@s,$s)}

for $file (<*.dat>)
{
  open (File,$file) || die ("could not open file $file ($!).\n");

  @t = split (/\n%\n/,<File>);

  for $t (@t)
  {
    for (@s)
    {
      $e = 0;
      $t =~ s/$_/$e = 1;$&/e;
      last if $e == 0;
    }

    $fn = "$file:\n" if $f;

    print "${fn}$t\n%\n" if $e;
  }

  close (File);

}