/pat/ or last while <FOO>;
    print;

##</code><code>##

__DATA__
D:\usr\lib\B.pm
	271: 	while (<$output_fh>) {

D:\usr\lib\CGI.pm
	409: 	      while (<$fh>) {

D:\usr\lib\CPAN.pm
	2776:       NETRC: while (<$fh>) {
	3052:     push @lines, split /\012/ while <FH>;
	4544:       while (<$fh>) {
	4720:     while (<$pipe>){
	4831:     while (<$fh>) {
	4884:     while (<$fh>) {
	5266:     while (<$fh>) {

D:\usr\lib\CPAN\FirstTime.pm
	549:     while (<$fh>) {

D:\usr\lib\ExtUtils\Command.pm
	57:  print while (<>);

D:\usr\lib\ExtUtils\Manifest.pm
	139:     while (<M>){
	175:     while (<M>){
	228: 	while (<F>) { $diff++,last if $_ ne <T>; }

D:\usr\lib\ExtUtils\MM_Unix.pm
	1531: 		    while (<FH>) {
	1564: 		    while (<FH>) {
	2761:     while (<FH>) {
	2801:     while (<FH>) {

D:\usr\lib\ExtUtils\MM_VMS.pm
	206:         while (<PM>) {
	2158: 	    while (<LIST>) {
	2174: 	    while (<OPT>) {

D:\usr\lib\Pod\Functions.pm
	56: while (<DATA>) {

D:\usr\lib\Test\Harness.pm
	97: 	while (<$fh>) {

D:\usr\site\lib\PPM.pm
	218:         while (<MAKEFILE>) {

D:\usr\site\lib\Tk\ColorEditor.pm
	54:         while(<FOO>) {

D:\usr\site\lib\Tk\TextUndo.pm
	751:    while (<FILE>)
	782:    while (<FILE>)