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

__DATA__
2L
bar.2L