Help for this page

Select Code to Download


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