note
MZSanford
You have the matcing correct, but you did not save any of the data you matched. You may want to take a look at the [perldoc://perlre] man page, in praticular what parenthesis are for. Something like the follwing (untested) code :
<code>
while (<DATA>) {
if ($_ =~ /^(\d+\s+\[\d+\.\d+\.\d+\.\d+\]\s+[\d+\.\d+\.\d+\.\d+\])/) {
print "Match=$1\n";
}
}
</code>
<p>The addition of getting the field is an excersize left to the reader.
<HR>
<i>from the <A HREF="/index.pl?node=99288&lastnode_id=1072">frivolous</A> to the <A HREF="/index.pl?node=120770&lastnode_id=1072">serious</A></i>
231392
231392