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

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

.. print ($1) ...

##</code><code>##

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

##</code><code>##

LINE: while (defined($_ = <ARGV>)) {
    print $1 && last if /(data)/;
}

##</code><code>##

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

##</code><code>##

LINE: while (defined($_ = <ARGV>)) {
    last if /(data)/ and print $1;
}

##</code><code>##

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

##</code><code>##

LINE: while (defined($_ = <ARGV>)) {
    last if /(data)/ and print $1;
}