#!/usr/bin/perl  
@a=<DATA>; for(@a
){$_ = reverse;tr
;{<}>();}>{<)(;};
print reverse @a;
__DATA__          
         __ATAD__
;a@ esrever tnirp
;{;)(>}<{;()<{>};
rt;esrever = _$}(
a@)rof ;<ATAD>=a@
  lrep/nib/rsu/!#