$_ = 'SPACE';

while ($_) {
    $n .= substr $_, 0, 1, '';
    print "$_$n\n";
}
[download]

The one-liner is left as an exercise for the reader. (I didn't make it pass -w and strict just to make it easy on you.)