Help for this page

Select Code to Download

Select or download this

foreach my $line (@lines) {
 if ($line=~ m/<FILENAME>.*\.htm/) {
...
     print "Filename is $doc_title";
     last;  ############### this stops
 };

Select or download this

use strict;
use warnings;
...

__END__
Filename is dp198076_424b2-us2342673.htm