$done=0;
while (<DATA>){
    $_ =~ s/\s+(.*)$/$1/ unless $done;
    print;
    $done=1;
}
 
__END__
     0.123  0.654   - so write before these values only
     0.987  0.678