Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
          ->$grep(sub { /1/ } )
          ->$join("\n")
          ->$say("\nIt works!");

#!/usr/bin/perl
use warnings;
...
say for sub { not $_ % 10 }->$grep(1 .. 100);
say '-' x 20;
say for 5->$grep(1 .. 100);