perl -ne 'print $1 if /INC\*XX\*(\d+)/' cr835.txt 123456