line 58: my $regex = gr/(\d+)\s+(\d+)\s+(\d+)\s+(\w+)/;