p6.p6

say first-letter "hello";
say last-letter "hello";
say middle-letters "hello";

sub first-letter {
    substr $^word, 0, 1
}

sub last-letter {
    substr $^word, *-1, 1
}

sub middle-letters {
    substr $^word, 1, *-1
}