for (my($i, $s) = (0, 3); $i < length($pie); $i += $s) {
    print substr($pie, $i, $s), "\n";
}