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