It's fairly minor, but using concatenation when you could use interpolation instead tends to obscure the result you are aiming for. Compare the following two print statements:
use strict;
use warnings;
my $tsuJ = 'tsuJ';
my $rehtonA = 'rehtonA';
my $lreP = 'lreP';
my $rekcaH = "\nrekcaH";
print join ' ', map {scalar reverse} split / /, $tsuJ . ' ' . $rehtonA
+ . ' ' . $lreP . ' ' . $rekcaH;
print join ' ', map {scalar reverse} split / /, "$tsuJ $rehtonA $lreP
+$rekcaH";
True laziness is hard work
|