Shell Programming and Scripting

#!/usr/local/bin/perl
require "List/MoreUtils.pm";
use strict;
use List::MoreUtils qw(:all);


my @FilePath=`svn log RepoUrl -v -q | awk '/paths/ { getline; print $1 }'| awk -F' ' '{print \$2}'|awk -F'/' '{print \$NF}'`;
my @Author=`svn log RepoUrl -q | awk -F'|' '{print \$2}'| awk 'NF' `;
my @Revision=`svn log RepoUrl -q | awk -F'|' '{print \$1}'| sed 's/'-'//g'| awk 'NF' `;
my $branch=`svn info RepoUrl | grep ^URL | awk -F'/' '{print \$NF}'`;


printf  "                                     Branch : $branch                                                                          \n";
printf  "|========================================================================================================================================|\n";
printf  "| %-35s | %-35s | %-35s \n","   FILENAME   ", "  AUTHOR  ","  VERSION  ";
printf  "|========================================================================================================================================|\n";

my $result = each_array(@FilePath, @Author, @Revision);

while ( my ($a, $b, $c) = $result->() )
{

printf  "$a"."\t"."$b"."\t"."$c";

}

printf  "|========================================================================================================================================|\n";


Expected result:

					Branch Name: release_1
	FileName Changed|   Author      |   Revision Number of file changed|
     hello1.c        |   saketh1     |   r120
	 hello2.c        |   saketh2     |   r12
	 hello3.c        |   saketh3     |   r100

Current/ERROR OUTPUT:

                     Branch Name: release_1
	FileName Changed|   Author      |   Revision Number of file changed|
     hello1.c
	 | saketh1
	 |  r120
	 hello2.c
	 | saketh2
	 |  r12
	 hello1.c
	 | saketh3
	 |  r100

perldoc -f chomp