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

##</code><code>##

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