#!/usr/bin/perl
use strict;
use warnings;

my $str = do {local $/; <DATA>};
$str =~ s/\s+//g;
my $len = length $str;

do {
    printf "%3d : %s\n", $_, substr( $str, $_, $len )
        for 0 .. ( length( $str ) - $len );
} while (--$len > 3);