#!/usr/bin/perl

use strict;

my $data = do { local $/ = undef; <DATA>; };

while ($data =~ m/Script.+\sat\s(.+)\s(\n)?(\d+:\d+:\d+)/g){
 my $date = $1;
 my $time = $3;
 print "$date\t$time\n";
 }

__DATA__
Script /opt/OV/bin/OpC/agtinstall/inst.sh invoked by root at 02/25/11 14:36:48
blah
blah
blah
Script /opt/OV/bin/OpC/agtinstall/inst.sh invoked by root at 02/25/11
14:36:48
blah
blah
blah