while (my $organized = <DATA2>) {
    $organized=~s/(\s)\w+/$1z/g;
    print $organized;
}