Perl: One liner

File

Remove lines with special pattern
$ perl -ni -e 'print unless /pattern/' /path/to/filename