Re: Last Letters

Try using a regular expression:

#!/usr/bin/perl -w
 
use strict;
 
my @data = qw|pa0002Yeadon.2(5091)
              pa0003Presidential.1(2664)
              pa0014Haverford.1(2589)|;
 
my @numbers = map { /\((\d+)\)/ } @data;
 
print "@numbers\n";
[download]

In Section Seekers of Perl Wisdom