#!/usr/bin/perl -lp
BEGIN{*ARGV=do{open $_,q,<,,\$/;$_}}
=pod
       File handles can be opened to "in memory" files held in Perl
       scalars via:

           open($fh, '>', \$variable) || ..
=cut
s z^z seek DATA,11,$[;($,
=ucfirst<DATA>)=~s x .*x q^~ZEX69l^^q,^2$;][@,xe.$, zex;
#  # ! / u s r / b i n / p e r l   - l p \n
# 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9  0
#print;
#print $,;
#print q^~ZEX69l^^q,^2$;][@,;
s e1e
q 1~BEER XX1^q~4761rA67thb ~eex ;
#print;
#print q 1~BEER XX1^q~4761rA67thb ~;
s aba m,P..,,substr$&,$.,age
__END__
[download]

Exercise for the reader: where did the 1 come from?