распарсить stl-файл (Питон)

result = []
for l in open('test.stl') :
    l = l.split()
    if l[0] == 'facet' : result.append(map( float, l[-3:] ))
    elif l[0] == 'vertex' : result[-1] += map( float, l[-3:] )
print result

tmp$ python test.py
[[0.0, -0.0, -1.0, -2.7425700000000002, -1.8872500000000001, 0.0, -1.0, -3.7999999999999998, 0.0, -3.0, -4.4000000000000004, 0.0], [0.0, 0.0, -1.0, -5.0, -5.5511199999999999e-12, 0.0, -2.7425700000000002, -1.8872500000000001, 0.0, -5.0, -2.5, 0.0]]

sub create_model ()
{
$num_versh=0;
$numm_versh2=0;
$model_index=0;
$old_model_index=-1;
open(STLMODEL, "< ./in_model/$file") or die "can't open stl-model";
while($line=<STLMODEL>)
	{
	if($line=~m/normal\s/o)
		{
		$before=$`;
		$seredina=$&;	
		$after=$';
		$i=0;		
		while($i<3)
			{
			if($after=~m/\S+\s*/o)
 				{
				$before=$`;
				$seredina=$&;	
				$after=$';
				$normal[$i]=$&+0;
				$i++;				
				};			
			};		
		};	


	if($line=~m/vertex\s/o)
		{
		$before=$`;
		$seredina=$&;	
		$after=$';
		$i=0;		
		while($i<3)
		{
			if($after=~m/\S+\s*/o)
				{
				$before=$`;
				$seredina=$&;	
				$after=$';
				$coordinates[$num_versh]=$&+0;
				$num_versh++;
				if($num_versh>8)
					{
					$num_versh=0;
					$model[$model_index]= [@coordinates];
			 $model_index++;				
					create_triangle(@coordinates);				
					}
				}
		$i++;		
		}
		}	
	}

#!/usr/bin/perl

use strict;
use Data::Dumper;

open my $fh, '<test1.stl' or die $!;
my @t;
/(normal|vertex)\s+(\S+)\s+(\S+)\s+(\S+)/ and ($1 eq 'normal' and push @t, [$2,$3,$4] or push $t[-1], $2,$3,$4) for <$fh>;
print Dumper \@t;