my ($part1, $part2) = split /_/, $str, 2;