@arr = split /\@/; unshift @arr,$_ for reverse split /\./,shift @arr;