while (<>) { push(@array, $_) if /one/ .. /two/; do_something() if /two/; } [download]
--[ e d @ h a l l e y . c c ]
In reply to Re: pattern matching by halley in thread pattern matching by Anonymous Monk