Select Code to Download

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

while(<DATA>) {
    /\w*\.*(\S+)/; 
...
__DATA__
2L
bar.2L