if( my($a, $c) = $string =~ /(a).*(c)/ ) {
    print "a=$a c=$c\n";
}

##</code><code>##

@result{"a","b"} = $string =~ /(a).*(c)/;