Select Code to Download

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

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

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