my $string  = "Hello World";
my $revcopy = reverse $string;

print chop($revcopy) . "\n" for 1 .. length($string);

##</code><code>##

while (defined(my $chr = chop $revcopy))
{
    print "$chr\n";
}