main::(-e:1):   42
  DB<1> $input = "The quick red fox jumped over the lazy brown dog.";

  DB<2> $spec = "3-6,9-13,17-20";

  DB<3> $spec =~ s/\-/../g;

  DB<4> @in = split //, $input;

  DB<5>  print "@in";
T h e   q u i c k   r e d   f o x   j u m p e d   o v e r   t h e   l a z y   b r o w n   d o g .
  DB<6> print  @in[eval ($spec)];
 qui red  jum
  DB<7>