Select Code to Download

my $string = ...;
my $regexp = ...;
...
   $sop->() for $output = $string;
   1
} or die("Timeout\n");