#! /usr/bin/perl
use strict;
our $InputString=shift;
our %Substring;
while(length($InputString) >= 3) {
$Substring{substr($InputString,0,3)}++;
substr($InputString,0,1)="";
}
for my $key (sort keys %Substring) {
printf "%s %d\n",
$key,$Substring{$key}
if $Substring{$key} > 1;
}
|