Select Code to Download

sub foo {
  my ($text, $to) = @_;
...
}

print foo("123", 'capture 1 is $1');

sub bar {
  my ($text, $to) = @_;
...
}

print bar("456", 'capture 1 is $1'); # prints capture 1 is 456