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