All comments are appreciated :)

#!/usr/bin/perl -w

use strict;

sub DONT{{(@_&&(print(shift))&&unshift(@_,getc(DATA))&&(print(shift)))
+?redo:1}}
AND_DEFINITELY:DONT(split(//,(<DATA>,<DATA>)))or'you may die in the'?0
+:1;__END__

Js nte elHce
utAohrPr akr
[download]