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