@tparse=split(/-/,$current);