Re: How do I to a stack until a pattern is matched, How do I

[Motherofperls]

while (<STDIN>)
{
 if (/QUIT/)
    { last;   }
  push @thestack, $temp;
}