#!/usr/bin/perl -w
use File::Basename;
use strict;
 
my @flist=<DATA>;
chomp @flist;
 
@flist = map {
    $_ = basename($_, qw/ .arb /  );
} @flist;
 
printf "%s\n",join(",",@flist);
 
__DATA__
/home/pberghol/tmp/TestV1.arb
/home/pberghol/tmp/TestV2.arb
/home/pberghol/tmp/TestV3.arb
/home/pberghol/tmp/TestV4.arb
/home/pberghol/tmp/TestV5.arb
/home/pberghol/tmp/TestV6.arb
/home/pberghol/tmp/TestV7.arb
/home/pberghol/tmp/TestV8.1.arb
/home/pberghol/tmp/TestV8.2.arb
/home/pberghol/tmp/TestV8.3.arb
/home/pberghol/tmp/TestV8.4.arb
/home/pberghol/tmp/TestV8.5.arb
/home/pberghol/tmp/TestV8.arb

##</code><code>##

perl stripFnames.pl
TestV1,TestV2,TestV3,TestV4,TestV5,TestV6,TestV7,TestV8.1,TestV8.2,TestV8.3,TestV8.4,TestV8.5,TestV8