my ($tag,$storage)=$arr=~/^\*\s+(\S+)\s+(\S+)\s+\w+/;