$line="one===two==three===four";
($one,$two,$three,$four)=split (/=+/,$line);
print "$one\n$two\n$three\n$four";