kashmervil

#!/usr/bin/perl 

$counter = 0;
$max_sub = "";
while (<>) {
    next if length $_ <= $counter + 1;
    chomp;
    my $tmp_str = substr $_, 0, $counter;
    for $letter (split //,(substr $_, $counter, -1)) {
        $tmp_str = $tmp_str . $letter;