#!/usr/bin/perl

use strict;
use warnings;

$| = 1;
my $str = "Hello!";
foreach ( split // , $str ){
  print "$_ "; #note the space
  sleep 1;
}
print "\n";