There are more concise solutions, but few as mappily delicious as this one:

my ($var1, $var2) = 
  reverse # reverse order of split strings
  map {scalar reverse} # reverse characters back
  map { split(/,/, $_, 2) } # split off first field
  map {scalar reverse} # reverse characters
  qq(www,google,yahoo,345) # string
;
[download]

# perl -le'print for reverse map {scalar reverse} map { split(/,/, $_,
+ 2) } map {scalar reverse} qq(www,google,yahoo,345);'
www,google,yahoo
345
[download]