#!/usr/bin/perl -w
open(F,"build.log") or die "can't open $!\n";
while($line=<F>)
{
  chomp $line;
  @a=$line;
  foreach(@a) 
  {
   #print "$_\n";
   if($_=~/Building IVR Designer version /)
    {
       #print "$_\n";
        push @b,$_;
        for(@b)
        {
          @c=split(" ",$_);
          print "@c\n";
          #for(@c)
           # { 
              #  @m=split(" ",$_);
                 # print "@m\n"; }            
              }  
         }
    }
}