#!/usr/bin/perl

$file = "spg.txt";

open(SPG, $file) or die "Couldn't open $file: $!\n";

while (defined($line = <SPG>)) {
        $line =~ s/\s+/ /g;
        $line =~ s/^\s//g;
        my ($title, $start_date, $start_time, $end_date, $end_time, $status, $prixit) = split(/\s/, $line);
        print "$title $status\n";
}