#!/usr/bin/perl -w
chomp(my @list=`ls *.tar`);
foreach (@list) {
  system "tar -xvf $_";
}

##</code><code>##

#!/usr/bin/perl -w
chomp(my @list=`ls *.tar`);
system "tar -xvf " . qq{@{[@list]}};

##</code><code>##

tar -xvf *.tar