perl -ne 'while (/(\w*_\w*)/g) { print "$1\n";}' code_file(s)