#!/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