print getData('ThisScript');
print getData('ls-l');

sub getData {
  my($name)= '[' . (shift) . ']';
  my($data, $hit);
  seek(DATA,0,0);
  while (<DATA>) {
    chomp;
    if ($hit= ($name eq $_) ... /^\[/) {
      next if $hit<2;
      last if $hit=~ /e0/i;
      $data.=unpack('u',$_);
    }
  }
  return $data;
}

# to create data do
# cat FILE | perl -e 'print pack ("u",join("",<>))' >> SCRIPT

__DATA__

[ThisScript]
M<')I;G0@9V5T1&%T82@G5&AI<U-C<FEP="<I.PIP<FEN="!G971$871A*"=L
M<RUL)RD["G!R:6YT(&=E=$1A=&$H)U1H:7-38W)I<'0G*3L*<')I;G0@9V5T
M1&%T82@G;',M;"<I.PH*<W5B(&=E=$1A=&$@>PH@(&UY*"1N86UE*3T@)ULG
M("X@*'-H:69T*2`N("==)SL*("!M>2@D9&%T82P@)&AI="D["B`@<V5E:RA$
M051!+#`L,"D["B`@=VAI;&4@*#Q$051!/BD@>PH@("`@8VAO;7`["B`@("!I
M9B`H)&AI=#T@*"1N86UE(&5Q("1?*2`N+BX@+UY<6R\I('L*("`@("`@;F5X
M="!I9B`D:&ET/#(["B`@("`@(&QA<W0@:68@)&AI=#U^("]E,"]I.PH@("`@
M("`D9&%T82X]=6YP86-K*"=U)RPD7RD["B`@("!]"B`@?0H@(')E='5R;B`D
M9&%T83L*?0H*(R!T;R!C<F5A=&4@9&%T82!D;PHC(&-A="!&24Q%('P@<&5R
M;"`M92`G<')I;G0@<&%C:R`H(G4B+&IO:6XH(B(L/#XI*2<@/CX@4T-225!4
+"@I?7T1!5$%?7PH`

[ls-l]
M=&]T86P@,CDS,@HM<G<M+2TM+2TM("`@,2!U<V5R('-T869F("`@("`@("`U
M-C@@4V5P("`S(#$S.C`Y(&1E860N;&5T=&5R"F1R=W@M+7@M+7@@("`V('5S
M97(@<W1A9F8@("`@("`@(#4Q,B!397`@(#,@,3$Z-#$@9&]W;FQO860*+7)W
M+2TM+2TM+2`@(#$@=7-E<B!S=&%F9B`@("`@-CDQ-S4P(%-E<"`@,B`P-SHU
M,2!D<V-F,C<R-2YJ<&<*9')W>"TM+2TM+2`@(#,@=7-E<B!S=&%F9B`@("`@
M("`@-3$R(%-E<"`@,R`Q,SHR-2!-86EL"F1R=RTM+2TM+2T@("`R('5S97(@
M<W1A9F8@("`@("`@(#4Q,B!!=6<@,3$@,3`Z,SD@;G-M86EL"BUR=RTM+2TM
M+2T@("`Q('5S97(@<W1A9F8@("`@("`@(#$W.2!397`@(#(@,3(Z,C$@;W!E
M;E]Q=65S=&EO;G,*+7)W+7(M+7(M+2`@(#$@=7-E<B!S=&%F9B`@("`@("`@
M.3`P(%-E<"`@,B`P.3HS,R!P<F]F:6QE"F1R=RTM+2TM+2T@("`S('5S97(@
M<W1A9F8@("`@("`@(#4Q,B!*=6P@,C@@,3$Z,C0@<'5B;&EC7VAT;6P*9')W
M>'(M>'(M>"`@(#(@=7-E<B!S=&%F9B`@("`@("`Q,#(T(%-E<"`@,B`Q,3HT
M-"!354X*+7)W+2TM+2TM+2`@(#$@=7-E<B!S=&%F9B`@("`@("`Q,3`W(%-E
M<"`@,R`@,C`P,R!X"BUR=RTM+2TM+2T@("`Q('5S97(@<W1A9F8@("`@(#<W
8,S0W-B!397`@(#,@,3(Z-#0@>"YS=V8*

[END]