Select Code to Download

  cut -c2-11,12-61,62-63,64-76,90-92 $str

{
...
my @b = Cut::from_list( '1,3-4,6-10,12-8,1,1,1', 'a'..'z' );
print "> @$_\n" for @b;