http://www.perlmonks.org?node_id=1014127


in reply to variable declaration question

The parenthesies can also be used to force list context. 

my $string = 'aaa1234bbb';
my ($number) = $string =~ /(\d+)/;

[download]
Bill

In Section Seekers of Perl Wisdom