#!/usr/bin/perluse warnings;use strict;while () { chomp; last unless $_; my $sdrawkcab = reverse $_; print "$sdrawkcab\n";}