my ($name) = $line =~ m! \A 1\. \s* (.*) \z!x;