Help for this page
#!/usr/bin/perl ... __END__
XLSperl -lne 'print if /pattern/ and $COL eq "A"' file.xls