#!/usr/bin/perl

open FH, "filename" or die "couldn't open file.\n";
@filename = <>;

print grep /\[l\]/,@filename;

##</code><code>##

% grep '\[l\]' filename