Command line one-liner:

perl -wMstrict -E 'print for grep /adam/, <>' /usr/share/dict/words
[download]

Script form (overly verbose so it's easier to understand):

use warnings;
use strict;

my $word_file = '/usr/share/dict/words';

open my $fh, '<', $word_file
  or die "can't open the $word_file file!: $!";

while (my $line = <$fh>){
    if ($line =~ /adam/){
        print $line;
    }
}
[download]