Most simple code? Easy. Don't use Perl. Here are some shell one liners:

1. grep PHRASE file
2. grep PHRASE *
3. grep -r PHRASE rootdir