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