xxxxxxxxxx
#!/usr/bin/perl
my $str = "Hello, World!";
my $rev = "";
$rev .= substr($str, -$_, 1) for (1 length($str));
print $rev;
xxxxxxxxxx
my $lang = "I love Perl";
my $reverse = "";
$reverse .= substr($lang, -$_, 1) for 1 .. length($lang);
print $reverse, "\n";