D:\temp>perl -e "$x='a_b_c'; ($j, $k) = split /_/, $x; print $k"
b
D:\temp>perl -e "$x='a_b_c'; ($j, $k) = split /_/, $x, 2; print $k"
b_c