print ((split /\&/, $string)[0]);