perl -i.bak -F\\\| -ane 'print unless $F[0] eq q/cat_name_del/' datafile