Select Code to Download

@stuff = ('This is Some text.','This is More text.');
$stext = '/some/i';

...
foreach (grep /$mod$text/, @stuff) {
  print $_, "\n";
}