use strict;
use File::Slurp;

my $file = shift or die "file?\n";
my $text = read_file($file);

parse_v($text);

sub parse_v {
    my $text = shift;
    my $name;
    {
        last if $text =~ /\G \s* \Z/gcmsx;

        if     ($text =~ /\G \s* ^ \s* module \s+ (\S+?) \s* \( \s* (.*?) \s* \) \s* ;/gcmsx) { $name = $1 }
        elsif  ($text =~ /\G \s* ^ \s* endmodule        /gcmsx) { }
        elsif  ($text =~ /\G \s* ^ \s* \S+ \s+ .*? \s* ;/gcmsx) { }
        else { die "ERROR: unknown syntax\n" }

        redo;
    }
    print "LAST MODULE (Perl $]): $name\n";
}