foreach (<>) {
        s/\s+(?=[a-z])/,/;
        s/\b([a-z]+)\s/$1,/;
        s/\b\s+\b(\d\d\/)/,$1/g;
        s/(:\d\d)\s\b/$1,/g;
}