Another one  (using rindex):

sub mysplit {
    my $s = shift;
    my $p = rindex $s, ',';
    return ( substr($s,0,$p), substr($s,$p+1) );
}

my ($var1, $var2) = mysplit('www,google,yahoo,345');
[download]