Select Code to Download

#!/usr/bin/perl -lp
BEGIN{*ARGV=do{open $_,q,<,,\$/;$_}}
...
#print q 1~BEER XX1^q~4761rA67thb ~;
s aba m,P..,,substr$&,$.,age
__END__