Large Object Grep

logrep

#!/usr/bin/env perl

use strict;
use warnings;

while (<>)
{
    # 2014-10-05 14:59:45.023
    my @F = split;
    if (/(\d{4}-\d{1,2}-\d{1,2} \d{1,2}:\d{1,2}:\d{1,2}).*Reading large object/) 
    {
        print(qq(R $1 ),$F[9],q( ),$F[11],qq(\n));
    }
    elsif (/(\d{4}-\d{1,2}-\d{1,2} \d{1,2}:\d{1,2}:\d{1,2}).*Writing very large object \((\d+) /)
    {
        print(qq(W $1 ),$2,q( ),$F[11],qq(\n));
    }
}