PS1="\[\033[40;1;37m\]% "
#!/usr/bin/perl while (<>) { s/%([A-F0-9][A-F0-9])/pack("C", hex($1))/gie; print; }