@array1 = map {
  (my $x = $_) =~s/dein lustiger regexp/$1$2/; $x
} @array2;