sub sift (\@@) {
  my $in = shift;
  my ($i,$j) = (0,0);
  my @s;

  @_ = map ref($_) ? $_ : qr/$_/, @_;

  push @s, map {
    my $ok = 0;
    my $e = $_;
    for my $r (@_) {  
      splice(@$in, $i-$j++, $ok = 1), last if /$r/;
    }
    $i++;
    $ok ? $e : ()
  } @$in;
  
  return @s;
}
 
@orig = qw( where are going to you );
@sifted = sift @orig, qr/^[aeiouy]/, qr/ng$/;
print "@sifted;@orig\n";
# are going you;where to
[download]