Select Code to Download

#!perl -lp
...

chomp;
$_=cut $s, $_;

#!perl -lp
BEGIN{@s=split/,/,shift}
...
$r.=substr$x,$1-1,($'||$1)-$1+1
for@s,$r='';
$_=$r

#!perl -ln
BEGIN{($s=shift)=~s/-/../g}
chomp;
$x=$_;
print+map{substr$x,$_-1,1}eval$s