If that's what you want. Add this one line after Skeeve's.

   push @str, (split ' ',$tpl->[-1])[2];
[download]

Sorry I still don't know if this implementation gives the fastest running time.