my $myString = '123_456'; print [split /_/ , $myString]->[1];