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