Select Code to Download

## Either
substr( $x, 0, index( $x, $char ), '');
## or
$x =~ s[(^/*$char)][];

for my $char ( unpack '(A1)*', substr $x, 0, 100, '' ) {
    ##
}

use strict;
use warnings;
...
}

cmpthese(-3, \%tests);