Select Code to Download

print "Found it!\n" if (grep {/^I_am_looking_for_this$/o} @List);

my $Found=0;
for (@List)
...
};

print "Found it!\n" if $Found;

sub IsInThere(@)
{
...
};

print "Found it!\n" if IsInThere(@List);