Select Code to Download

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

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