my @filtered = grep{ ... } do{ [ $1, $2 ] while $s =~ m[(.)(.)]g };