$_ !~ m[] and print for @l;;