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