Help for this page
#!/usr/bin/perl ... @filename = <>; print grep /\[l\]/,@filename;
% grep '\[l\]' filename