perl -i -n -e 'print if not /^sandwich,hamburger,/i' comma.file