Re^2: regex gotcha moving from 5.8.8 to 5.30.0?

in reply to Re: regex gotcha moving from 5.8.8 to 5.30.0?
in thread regex gotcha moving from 5.8.8 to 5.30.0?

What about reading the file in chunks? "endmodule" seems like a good candidate for the separator.

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

local $/ = 'endmodule';
my $name;
while (<>) {
    if (/^ \s* module \s+ (\S+?) \s* \( \s* .*? \s* \) \s* ;/xsm) {
        $name = $1;
        say $name;
    }
}
say "LAST MODULE (Perl $]): $name";
[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

In Section Seekers of Perl Wisdom