#!/usr/local/bin/perl -w
use strict;

print "What string would you like to twaddle? ";
chomp(my $twiddle = <STDIN>);
$l = length $twiddle;
# Up...
print substr($twiddle,0,$_),"\n" for (1..$l);
# Down...
print substr($twiddle,0,-$_),"\n" for (1-$l..-1);