## Load line data my @linePts = map[ (split)[ 5,6,7 ] ], split "\n", ; # pp \@linePts; ## Load the "rotatable" points my @rotPts = map[ (split)[ 6,7,8 ] ], split "\n", ; # pp \@rotPts; ## Load the stop points. my @stopPts = map[ (split)[ 7,8,9 ] ], split "\n", ; # pp \@stopPts;