Help for this page
perl -p -i.bak -e "next if /^sandwich,hamburger,/" comma.file
perl -n -i.bak -e "print unless /^sandwich,hamburger,/" comma.file