perl -le 'use Inline Awk=>q+function j(){print"Just Another Awk Hacker"}+;j'