#!/usr/bin/perl

use strict;
use warnings;

my $_;
my $name1;
my @wds;

open(my $WorteFh, '>', 'Worte.TXT' ) or die $!;

my @txtfiles = glob( "*.txt" ) or die $!; 

for my $file ( sort @txtfiles )
{
	open( my $fh, '<', $file ) or next;
	local $/;
	my $content = <$fh>;
	close $fh;

my $words = 0;
  
if ($content =~ m{ (\n) \.SUBCKT \b }mix )# Test ob .Subckt enthalten                                                                
    {    
if ($content =~  m/^\.subckt ([\w.\s]+)/im) # Wenn ja, alles nach .Subckt auslesen
	{
	$name1 = $1;
	(undef, my @wds) = split(/ /,$name1);

	next unless @wds;
  
	print join "; ", @wds;
	print "\n";

	$words += scalar(@wds);

	print("words=$words\n");
	print "$file\n$name1\n"; 
	print $WorteFh "$words\n";
	}
    }
}

close $WorteFh;