${split(/_/,$b)}[0] } 


##</code><code>##

    [split /_/, $b]->[0]