use Data::Dumper;
    my ($name) = $line =~ m! \A 1\. (.*) \z!