For a quick start, what's wrong with:

my @translatables = ($sourcecode =~ /\b__\((.*?)\)/g);
[download]

This will extract all tokens that need translation, at least from the specification you've shown. If you do more fancy stuff like nested parentheses etc., things get hairier, but as you're the one writing the code, I recommend you Just Don't Do That.