Help for this page

Select Code to Download

Select or download this

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

Select or download this

$line = "==one==two==three=four";
($one,$two,$three,$four)=split (/=+/,($line=~/^=*(.*?)$/,$1)[1]); 
print "$one\n$two\n$three\n$four";