...
sub convert
{
    my $re = shift;
    $re =~ s<\(\?\\\$([^=]+)=([^)]*)\)><($2)(?{\$$1=\$^N})>g;
	$re
}
...