Select Code to Download

#!/usr/bin/perl

...
    tr/a-zA-Z/A-Za-z/;  # invert case, just for fun
    print OUT;
}

#!/usr/bin/perl

...
    tr/a-zA-Z/A-Za-z/; # invert case, just for fun
    print;
}

  a -> 0  \
  b -> 1   \ "0-3" defines a continuous character range
...
  d -> 3  /
  e -> 1
  fg-zA-Z -> 0