#!/usr/bin/perl
use strict;

my $m=15;my %a;my $z="%x";$a{b}=qw(a);my @i=($m,$z);my @l;
$l[0]="o r".' '."t "."n".' '."k l e".' '."m";@l= split(? ?,$l[0]);
$a{z}="c";@i=reverse(@i);my $r = sprintf($i[0],$i[1]);$a{n}=qw(o);
print "\U$r\E"."$l[1]$a{b}";
print"$l[$_]" for(3..4);print ", "."Jus"."$l[2]"
." "."\u$a{b}@l[3]@l[0]@l[2]h@l[6]@l[1] \u$a{z}$a{b}";for
($r=7;$r>4;$r--){print
"@l[$r]";};print
" \u@l[4]$a{n}$a{n}@l[4]";