#!/usr/bin/perl use strict; my $letztes_wort = "elusive"; my $letztes_wort_uebersetzung = "schwer zu fassen; (Begriff) schwer zu definieren"; foreach () { chomp ($_); if (/$letztes_wort - $letztes_wort_uebersetzung/) { print "gefunden!"; } } __DATA__ elusive - schwer zu fassen; (Begriff) schwer zu definieren defiance - Trotz, Missachtung indignation - Entrüstung, Empörung