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

##</code><code>##

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