Context, with parens you assign to a list. It does not matter in your case, but:

my $foo = 'bah' =~ /(a)/;
print "$foo\n";
($foo) = 'bah' =~ /(a)/;
print "$foo\n";
[download]