perl -le '$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,$_^=q,$\^-]!,,print' [download]
In reply to regtool.pl with Getopt::Long and Pod::Usage by hopes