perl Regexp-Shellish