foreach(@ARGV){
  /(\w*)/;
  $foo = `ls -l $1`;
}