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