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