#!/usr/bin/perl -w
use
strict;
while
(
<STDIN>
)
{
if
(
/tracerec: ([0-9]+) /
)
{
print
$1
;
}
}
syntax highlighted by
Code2HTML
, v. 0.9.1