/usr/bin/perl -ni -e 'print unless /^\\Q${line}\\E\$/' '${file}'