[[ "$( cat filename | perl -e 'print for grep { /^[[:space:]]{0,}#.+?foo/ } <>' )" != "" ]] && found_but_commented=1;