Hello World JAPH

This is my first JAPH although it prints hello world! instead. I wrote it for this because I like challenges.

This type of JAPH has probably already been done but it was fun to do.

#!/usr/bin/perl
use warnings;
use strict;
open my $fh,';
$self =~ s/[^a-z !]//g;
print map { substr($self,$_,1) } qw(42 8 62 10 55 26 15 33 9 -46 47 0);

I got Win #44.