If you're looking for a single digit followed by a capital letter (this is a wild guess, since you might just be looking for a literal '2L' anywhere in the string - it's rather hard to tell), then this simple regex will do:

while (<DATA>){
    chomp;
    print "$1\n" if /(\d[A-Z])/;
}
[download]