The parenthesies can also be used to force list context.

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