( split( /,/, $_, 2 ) )[ 0 ]

##</code><code>##

my ( $first ) = split( /,/, $_, 2 );