One regex construct to handle multiple string types

neversaint has asked for the wisdom of the Perl Monks concerning the following question:

Dear Masters,
Given these strings:

my $str1 = "2L";       # want to capture 2L
my $str2 = "bar.2L"; #want to capture 2L
[download]

I want to create one regex construct that can capture the desired string as stated above. However my regex below doesn't seem to do the job.

while(<DATA>) {
    /\w*\.*(\S+)/; 
     print "$1\n";
}

__DATA__
2L
bar.2L
[download]

How can I get the correct one?

---
neversaint and everlastingly indebted.......