# Perl 6
    {print "$_\n" if /pattern/} for @arr;