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