File: upside-down

package info (click to toggle)
filters 2.9
  • links: PTS
  • area: main
  • in suites: potato
  • size: 124 kB
  • ctags: 141
  • sloc: lex: 351; perl: 182; makefile: 64; sh: 5
file content (3 lines) | stat: -rwxr-xr-x 168 bytes parent folder | download 
1
2
3
 
#!/usr/bin/perl -pl-
$_=reverse lc$_;s@"@''@g;y/[]{A-R}<>()a-y1-9,!.?`'/][}        Joey Hess
{><)(eq)paj6y!fk7wuodbjsfn^mxhl5Eh29L86`i'%,/;s@k@>|@g#   joey@kitenet.net