Select Code to Download

my %ws = (
    "\x09" => qw( \t ),  
...
    print;
    print "\n";    # keep it line for line. 
}

  
perl -pe 's/(\s)/sprintf"\\x%02x",ord$1/ge;$_.=$/'