#!/usr/bin/perl
use warnings;
use strict;
use 5.010;

my $startField = "Some Field   :";
my $format = "%-15s %8s %8s %6s\n";

printf $format, 'something', 'number1', 'number2', 'word';
local $/ = $startField;

while (defined (my $rec = <DATA>)) {
    next if $rec eq $startField; # Skip empty first record

    my @fields = split "\n", $rec;
    my @values;
    
    $fields[0] = $startField . $fields[0]; # Restore field label
    
    for my $field (@fields[0 .. 3]) {
        my (undef, $value) = split ': ', $field, 2;
        
        push @values, $value;
    }
    
    printf $format, @values;
}


__DATA__
Some Field   : some value
Another Field: 1234
Different One: 5678
Yet Another  : foo
line of uninteresting stuff
Some Field   : some else
Another Field: 4321
Different One: 8765
Yet Another  : bar
more junk
Some Field   : another value
Another Field: 1122
Different One: 5566
Yet Another  : baz