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