if (m/(\d+\.\d+\.\d+\.\d+)/) {
  my $PRTABL=$1;
  s/\w{3} \w{3} \d+ \d+:\d+:\d+ \d{4}/$clocks{$PRTABL}/;
}
else {
  warn "match failed";
}