Select Code to Download

#!/usr/bin/perl -w

...
open DATA, "books.txt" 
    or die "open(books.txt) returned: $!\n";
print grep {/^$letter/io} <DATA>;

perl -e 'print grep {/^a/io} <>' /usr/dict/words