Select Code to Download

use strict;
my $str = "the boy walked the dog";
...
  }
  $string;
}

sub ChainSubs{
  my $string = shift;
...
  return $string;
}