$_ = 'USERID1|2215|Jones|';
my( $x, $y, $z ) = split /\|/;
print "( $x, $y, $z )\n";
( $x, $y, $z ) = split /\|/, 3;
print "( $x, $y, $z )\n";
__END__
( USERID1, 2215, Jones )
( 3, ,  )