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