Select Code to Download

#!/usr/bin/perl -w  # Bugs In My Code?
use strict;
...
            11l                                       032
           d                                           jh

    # remove two consecutive white space characters
    $d =~ s/\s{2,2}//gx;

    # remove ALL occurances of two consecutive white space characters

 while () {
        # pick a random character to remove from the  code fragment
        $b=$b[int rand @b];
        last if $d =~ /\Q$b\E/
    }