#!/usr/bin/perl
use strict;
use warnings;

my $case1 =
"Club:     Some Club   

Comments:
";

my $case2 = 
"Club:

Comments:
";


foreach my $text ($case1, $case2)
{
   # extract Club name
   
   (my $club) = $text =~ /Club:\h*(.*?)\h*\n/;   # need to allow for blank Club name 
    
   print "line before name\n";   # print out to make sure $club doesn't have a \n
   print "extracted Club name: '$club'\n";
   print "line after name\n";
}

__END__
line before name
extracted Club name: 'Some Club'
line after name
line before name
extracted Club name: ''
line after name