#!/usr/bin/perl
use strict;
use warnings;

#open my $F, '>', $file or die "can't open $!\n"; 
while (my $line = <DATA>) { 
      chomp $line;   
      my ( $date, $version ) = $line =~ 
           m{ \A Info: \s (.*?):Building.*? version \s ([\d\.]+) }xms;        
      print "$date   $version \n";
}

__DATA__
Info: Wed Mar 28 18:53:03 2007:Building IVR Designer version 06.00.08....
Info: Wed Mar 28 18:53:03 2007:Building IVR Designer version 06.00.08....
Info: Wed Mar 28 18:56:31 2007:Building IVR Designer version 6.0 Completed !!