Help for this page
Select Code to Download
Select
or
download this
my @filtered = grep{ ... } do{ [ $1, $2 ] while $s =~ m[(.)(.)]g };