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