#!/usr/local/bin/perl '@a=\`ls\`; print @a'