[while (<MAYA>) { my ($line) = $_; chomp($line); if ($line =~ /library_geometries/) { $start = 1; } if ($line =~ /<\/float_array>/) { $end = 1; } if (($start