#!/usr/bin/perl -w
use strict;

while (my $line = ) {
    chomp $line;
    if ($line =~ m/^([^\s]+)\s*(.*)$/) {
        my $label = $1;
        my @features = split(' ', $2);
        print "$label";
        my $l1_norm = 0;
        foreach my $feature (@features) {
            my ($term, $weight) = split(/:/, $feature);
            $l1_norm += $weight;
        }
        foreach my $feature (@features) {
            my ($term, $weight) = split(/:/, $feature);
            my $normalized_weight = ($weight/$l1_norm);
            print " $term:$normalized_weight";
        }
        print "\n";
    }
}