Not many people have worked out what this is, from memory only 2 one of whom is Nicolai Jørgensen, the other I don’t remember. It’s been the signature on my email for a while now. When I started working at Titan I had a number of people (including our MD) let me know that my email was broken and seemed to be adding some garbage to the end of the email – which is probably a good summation of what it looks like.
#!/usr/bin/perl
chop($_=<>);@s=split/ /;foreach$m(@s){if($m=='*'){$z=pop@t;$x=
pop@t;$a=eval"$x$m$z";push@t,$a;}else{push@t,$m;}}print"$a\n";
It’s a reverse polish calculator, if you don’t know what that is ask any computer scientist or engineer over the age of about 50.