perl -ne 'print if _____' somefile