#!/usr/bin/perl

use warnings;
use strict;

my @l = (
    "Bratwurst",
    "Teewurst",
    "Bockwurst",
    "Apfel",
    "Birne"
);

print "Alle Wuerste:\n";
print join( ', ', grep { /(?<=\w)wurst/ } @l ), "\n";
print join( ', ', grep { /.+(?=wurst)/ } @l ), "\n";

print "\nAlle Wuerste ausser Teewurst:\n";
print join( ', ', grep { /(?<!Tee)wurst$/ } @l ), "\n";

print "\nAlles ausser Wurst ohne Look Behind:\n";
print join( ', ', grep { ! /wurst$/ } @l ), "\n";

print "\nAlles ausser Wurst mit Look Behind:\n";
print join( ', ', grep { /(?<!wurst)$/ } @l ), "\n";