# split
my ($key, $string1) = split /=/, $_, 2;
print "$key, $string1\n";