This is all good, but I'd use a regex to dice up the line rather than split and all that shifting, popping, and joining.

my ($description, $function) = /^#\s?STANDARD\s+(.*?)\s+(\S+)\s*$/;
[download]

-sauoq
"My two cents aren't worth a dime.";