Nori Heikkinen wrote:
> format STDOUT =
> +---------------------------------------------------------------------+
> ~ | @<<<<<<<<<<<<<<<<<<<<< | ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< |
> $name, $fortune
> ~ | @<<<<<<<<<<<<<<<<<<<<< | ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< |
> $email, $fortune
> ~ | @<<<<<<<<<<<<<<<<<<<<< | ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< |
> $url, $fortune
> ~~| | ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< |
> $fortune
> +---------------------------------------------------------------------+
You call that a perl formatted sig, eh? THIS is a perl formatted sig:
--
#!/usr/bin/perl -l
@ARGV=$0;$x=###+J}
99;while(<>)##,+Ht
{$y=0;$a[####{_n#n
$y++][$x]#=",)$i=i
=$& while#_H";(s)r
/./g;$x--#$ 8r*2p
}map{$g.=#;YS=t8,;
"\n".join#(ESxs39'
'',@$_}@a#rOE b+/
;eval $g# oJ"_u9y
##########f".$s3$'
Attachment:
pgptnQ5wErpug.pgp
Description: PGP signature