perl Capture-Tiny