if (/^\s*module\s+(\w+)/) {
    $module = $1;
    print "Found module '$module'\n";
}