my @data=grep{$_->tag('name') && $_->tag('name')->value() eq 'Strassenname'}$osm->way_list();
Quote^[aA]+[vV]+[^eE]+
Quotealso immer wenn der Reg zutrifft, dann soll das Ergebnis wahr sein.
1 2 3 4 5
my @data = grep { $_->tag('name') && $_->tag('name')->value() eq 'Strassenname' && $_->tag('name')->value() =~ /^[aA]+[vV]+[^eE]+/ } $osm->way_list();
&& $_->tag('name')->value() =~ /^[aA]+[vV]+[^eE]+/