perl -p -i.bak -e "next if /^sandwich,hamburger,/" comma.file