use strict;
use warnings;

# Small standalone test program derived from [id://11153804]
# @lines contains some test lines derived from:
# https://www.sec.gov/Archives/edgar/data/831001/000095010323011632/0000950103-23-011632.txt
my @lines = (
   '<FILENAME>dp198076_424b2-us2342673.htm',
   '<FILENAME>dp198076_exfilingfees.htm',
   '<FILENAME>dp198076_oopswrongextension.htmfred',
);

foreach my $line (@lines) {
   print "line:$line:\n";
   if ($line =~ m/<FILENAME>(.*\.htm)/) {
      print "   matched line: filename='$1'\n";
   }
   else {
      print "   did not match line\n";
   }
}

##</code><code>##

line:<FILENAME>dp198076_424b2-us2342673.htm:
   matched line: filename='dp198076_424b2-us2342673.htm'
line:<FILENAME>dp198076_exfilingfees.htm:
   matched line: filename='dp198076_exfilingfees.htm'
line:<FILENAME>dp198076_oopswrongextension.htmfred:
   matched line: filename='dp198076_oopswrongextension.htm'

##</code><code>##

   if ($line =~ m/<FILENAME>(.*\.htm)/) {

##</code><code>##

   if ($line =~ m/<FILENAME>(.*\.htm)\b/) {

##</code><code>##

line:<FILENAME>dp198076_424b2-us2342673.htm:
   matched line: filename='dp198076_424b2-us2342673.htm'
line:<FILENAME>dp198076_exfilingfees.htm:
   matched line: filename='dp198076_exfilingfees.htm'
line:<FILENAME>dp198076_oopswrongextension.htmfred:
   did not match line