>perl -wMstrict -le
"my $s = 'www,google,yahoo,345';
 my ($v1, $v2) = split m{ (?<= \A .{16}) , }xms, $s;
 print qq{[$v1] [$v2]};
"
[www,google,yahoo] [345]