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

##</code><code>##

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;
    }
}