Absolutely. Are you looking for
exactly one line, or more? Are the columns separated by whitespace? Assuming yes to all the answers above:
Code:
my $target;
if (open(FOO,$_)) {
while ($_=<FOO>) {
next unless /OXT/; # find OXT anywhere in line.
$target=(split)[4];
last;
}
close(FOO); # forgot this last time, though not really necessary.
}
# 4th field in $target
