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

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