#!/usr/bin/perl

use strict;
use warnings;

my $search = <STDIN>;                    # Eingabe des Suchwortes
chomp $search;                           # Zeilenumbruch von Eingabe entfernen 

my $count = 0; 

open(my $file, "ue1.txt");

while (<$file>){
  chomp;                                 # Zeilenumbruch von eingelesene Zeile entfernen
  my @tmp = split / /, $_;               # Alle Wörter mit Satzzeichen in ein Array packen
  foreach( @tmp ){                       # Array durchlaufen
    s/[^\w]//g;                          # Alle non word character entfernen (Satzzeichen)
    $count++ if lc $_ eq lc $search;     # Wenn das wort nun deiner Eingabe entspricht (Vergleich mit lowercase) - zähle $count hoch
  }
}
print $count;