perl -n -i.bak -e "print unless /^sandwich,hamburger,/" comma.file