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
;

##</code><code>##

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