Select Code to Download

use strict;

...
   $flag++, last if /\w\d/;
}
print "foo's found in list\n" if $flag;

use strict;

...
   }
}
print "foo's found in list\n" if $flag;