$" = ''; $_ = join( '', @$_ ), m[[aeiouy]] and print while $_ = $i->next;;