#!/usr/bin/perl
use strict;
print "Just Another Perl Hacker!\n";

##</code><code>##

#!/usr/bin/perl
print "Just Another Perl Hacker!\n";

##</code><code>##

#!/usr/bin/perl -w
use strict;my $japh=q/tsuJ rehtonA lreP !rekcaH/;
my @j = reverse split /\s+/, reverse $japh;
for (0..3){print $j[$_], " ";}