$ perl -p -e 'print "MATCH" if m(/\*)'
foo
foo
/*
MATCH/*