Select Code to Download

use strict;

...
121       14641
202       40804
212       44944

package GOLF;

...
$code =~ s/^sub\s+(\w+)\s*{//;

printf "Length of sub '$1' => %d chars\n", length $code;