Select Code to Download

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

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