#!/usr/bin/perl

BEGIN{local$/;open+F,$0;$_=<F>;tr/\007/;/;s/(?!:\n)BEGIN{[^\n]+}(?!:\n)//;eval;exit}

use strict^G

my @array = ( 'Hello', 'World!' )^G
print "@array\n"^G

exit 0^G