use strict;
use warnings;

while (my $row = <DATA>) {
    chomp $row;
    my @elements = split ',', $row;
    my $tail = pop @elements;
    my $body = join ',', @elements;
    print "$body -- $tail\n";
}

__DATA__
www,google,yahoo,345
www,google,yahoo,75323