my @data = qw/ei nur bein flur stein/;
for (@data) {
    m~(ei)~;
    print "$_ -> [$1]\n";
}