Select Code to Download

use strict;
use warnings;
...
}

print "No matches found\n" unless $match;

>perl findinfile.pl run.c "int\s+main\s*\("

int
main(int argc, char** argv)

...
my $text;
...
}

print "No matches found\n" unless $match;