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

    foreach $char (/\S/g) { # Capturing parens not needed
        $str.= substr(unpack("B*",pack(n,unpack("c",$char))),-4);
        $str.= "\n" if !(++$i%5);
    }

    $_=$str;
    tr/0/\40/;
    tr/1/#/;
    print $_;