#!/usr/bin/perl
use warnings;
use strict;


open(my $modelFh, '>', 'MODEL_DIODE.TXT' ) or die $!;

# Alle *.txt-Dateinamen im aktuellen Verzeichnis
my @txt = glob( "Bauteil.txt" );

# Iteriere durch die Dateinamen (in sortierter Folge)
for $file ( sort @txt )
{
  # ganze Datei in Skalar einlesen
  open( my $fh, '<', $file ) or next;
  local $/;
  my $content = <$fh>;
  close $fh;

  # if ( $content =~ m{ ^\s* \.model\s* ([a-z0-9])\s*}ix )
  if($content =~ m/^\.model ([a-z0-9]+)/i)
  {
    my $word = $1;
    print $modelFh "*.SUBCKT erstellt:\n\n.SUBCKT $word 1 2\nD1 1 2 $word\n\n$content\n.ends\n";
  }
}

close $modelFh;