#!/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";