$aa = "var=wert;";
# split into pieces
($ll,$rr) = split(/[=;]/,$aa);
# show pieces
print $ll, $/, $rr, $/;