$foo="some,test,text"; ($bar)=split (/,/,$foo,2);