use warnings;
use strict;
my @foo;
$foo[0] = "abcd"=~/b(.)/; # scalar context
@foo[1] = "abcd"=~/b(.)/; # list context
print "{$_}\n" for @foo;
__END__
{1}
{c}