Select Code to Download

sub test_match {
  my( $regexp, $string ) = @_;
...

my $string = "Hello world!\n";
print $string if test_match( qr/hello/i, $string );