#!/usr/bin/perl
use strict;
use warnings;

print join(", ", reverse "world", "One"), "\n"; # One, world
print scalar reverse ("dlrow ,", "owT"),"\n";    # Two, world
 
$_ = "dlrow ,eerhT";
print reverse;                         # No output, list context
 
$_ = "dlrow ,ruoF";
print scalar reverse;                  # Four, world


##</code><code>##

One, world
Two, world
Four, world

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

print join(", ", reverse "world", "One"), "\n"; # One, world
print scalar reverse ("dlrow ,", "owT"),"\n";    # Two, world
 
$_ = "dlrow ,eerhT";
print reverse $_;                         # No output, list context
 
$_ = "dlrow ,ruoF";
print scalar reverse $_;                  # Four, world


##</code><code>##

One, world
Two, world
dlrow, eerhTFour, world