#!/usr/bin/perl
#Prints Hello World!!
$p?@a&&s;.*;${$a[--$-]}=$&;e||s:.:@a[$-++]=$&:ge:map{${$&}=/./&&$_}@{$_}for
@{[[qw{print join split ; grep m[[HW]] @ARGV}],qw(/abcdioue ' _ > < $ } { = !!)]};
s!.!${$&}!g=>eval for@{['@ad[;duaio;p"je"eaogbmcs']};