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