in reply to Grepping SVN log for JIRA issues

You could use a while loop with //g (perlre): 
use warnings;
use strict;
use Data::Dumper;

my $log = 'BACKLOG-123, BACKLOG-124, BACKLOG-125';
my @tickets;
while ($log =~ /([A-Z]+-\d+)/g) {
    push @tickets, $1;
}
print Dumper(\@tickets);

__END__

$VAR1 = [
          'BACKLOG-123',
          'BACKLOG-124',
          'BACKLOG-125'
        ];

[download]

Replies are listed 'Best First'.
Re^2: Grepping SVN log for JIRA issues
by kmartin (Initiate) on Feb 22, 2011 at 18:57 UTC
    That works! Thanks for your help.
[reply]
Re^2: Grepping SVN log for JIRA issues
by happy.barney (Friar) on Feb 22, 2011 at 19:58 UTC 
    push @tickets, $log =~ /([A-Z]+-\d+)/g;

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom