#!/usr/bin/perl -w
use strict;
my $str = "Hello!";
chomp($str);
foreach (split //  ,$str) {
print $_,"\n";
sleep 1;
}

##</code><code>##


H
e
l
l
o
!

##</code><code>##

H e l l o !

##</code><code>##

 H e l l o 
##</code><code>##


h (sleep) e (sleep) l (sleep) l (sleep) o (sleep)  !(sleep)