open(ELIF,"tac file.foo |")
  or die "Couldn't tac file: $!\n";
while (<ELIF>)
{
  push @lines,$_ if /criteria/;
  last if @lines > $n;
}