Select Code to Download

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

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

tar -xvf *.tar