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