for ( my $count = 0; $count < length( $data ); $count++ ) {
   my $number = substr( $data, $count, 1 );
   print( $number, "\n" );
}
##</code><code>##

for my $number (split //, $data) {
  print "$number<br />\n";
}
##</code><code>##

print "$_<br />\n" for (split //, $data);