I am parsing a $text variable from which I want to extract a Club name.
I have a solution that "works" as shown below.
I have been unable to do this in a single regex which handles both of my cases. So I just used 3 statements. This is a pragmatic "do what works" situation and is fine as far as that goes. However, in the search for elegance, I suspect that a single regex could be constructed that handles both cases?

In case2, there is a new line right after Club:. My attempts at a single regex often wind up capturing Comments: instead of a null string for Club name. Ideas welcome.

#!/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:(.*)/;   # need to allow for blank Club
+ name
   $club =~ s/^\s*//;
   $club =~ s/\s*$//;
   
   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

========

I've tried things like: /Club:\s*(.*)[ ]*\n/
and various other encantations, but that picks up 'Comments:'
intead of a blank Club name

line before name
extracted Club name: 'Some Club'
line after name
line before name
extracted Club name: 'Comments:'
line after name
[download]

Update:
LanX and Anonymous Monk came up with the ball!
I hadn't seen \h before, but it works here!

#!/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 b
+lank 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
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.