perl -nle 'print $1 while /constant=(.*)\s/g' /home/jamie/txt