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