Select Code to Download

sub get_inner {
   my $str   = shift;
...

   $inner;
}

sub get_inner {
   my $str   = shift;
...

   $1;
}