split is returning the first empty field, to the left of the first GTG separator in string.

Please, read the first paragraph of split at perldoc.perl.org: http://perldoc.perl.org/functions/split.html