Select Code to Download

# break into individual characters
my @characters = split(//);
...
while (/(.)/g) { # . is never a newline
     # do something with $1
}

my %seen = ();
my $string = "J. J. Horner is so cool!";
...
    $seen{$byte}++;
}
print "unique chars are: ", sort(keys %seen), "\n";