#!/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[$_], " ";}