#!/usr/bin/perl
$_='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;