@line=split(/$variable/,$_);