$_='gcc 92 !$* % "awk in I$: ar& $:a"';

    foreach (/(\S)/g) {
        $;.= substr(unpack("B*",pack(n,unpack("c",$_))),-4);
        $;.= "\n" if !(++$i%5);
    }

    $_=$;;
    y;0;\40;;
    y;1;#;;
    print;