Select Code to Download

#!/usr/bin/perl -w

...
         s/(.*?)(....)$/("X" x length($1)).$2/e;
         print;
}

#!/usr/bin/perl -w

...
    }
    print "$_\n";
}