Select Code to Download

sub regexp($) {
  my $r=shift;
...
      return $pattern
  }
}