$var = 'foobar';
$var2 = ( $var =~ /(foo)(bar)/);
print $var2;