C:\>perl -we "$myString = '123_456'; print( ( split '_' , $myString )[1] )"
456