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