Select Code to Download

$ perl -Mstrict -Mwarnings -E '
    my $word = q{catfood};
...
    say join q{} => @array[3 .. $#array];
'
food