#!/usr/bin/perl

use strict;
use warnings;

my $words = 0;

while (<DATA>) {
    
    my @wds = split(/[^\w.]+/, $_);
    
    print join "; ", @wds[2..$#wds];
    print "\n";
    
    $words += scalar(@wds)-2;
    
}

print("words=$words\n");

__DATA__
.SUBCKT D1N4148 Anode1 Kathode1 foo
.SUBCKT D1N4248 Anode2 Kathode2 foo bar
.SUBCKT D1N4348 Anode3 Kathode3
.SUBCKT D1N4448 Anode4 Kathode4 foo
.SUBCKT D1N4548 Anode5 Kathode5 foo bar
.SUBCKT D1N4648 Anode6 Kathode6
.SUBCKT D1N4748 Anode7 Kathode7 foo
.SUBCKT D1N4848 Anode8 Kathode8 foo bar
.SUBCKT D1N4948 Anode9 Kathode9