#!/usr/bin/perl -wNp

use strict;

$_ = reverse $_;
__DATA__
citamorhc
si
!sdrawkcab