#!/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