while (<DATA>) {
    s/\s+$//;
    s/\s+/ /g;
    print $_, "\n";
}