Select Code to Download

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

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