perl -ne'/(data)/ && print $1' file.txt