PERL_STRINGS
sub revstring {
my $stringa = shift;
my $newstring = reverse $stringa ;
return $newstring;
}
my $a = "panos";
print $a;
my $b = reverse $a;
print $b;
my $c = revstring($a);
print revstring($c);
print revstring($b);
print revstring($a);
1. revstring : Reverses a string