$ cat pm_1132055.pl
#!perl

while(my $line = <DATA>) {
    chomp $line;
    my @words = split /\s+/, $line;
    print join(", ", @words), "\n";
    print qq{\$words[1] --> $words[1] and \$words[3] --> $words[3]}, "\n";
}



__DATA__
ChipId 1925 SubVersid 0001

$ perl pm_1132055.pl
ChipId, 1925, SubVersid, 0001
$words[1] --> 1925 and $words[3] --> 0001

##</code><code>##

$ cat pm_1132055.pl
#!perl

while(my $line = <DATA>) {
    chomp $line;
    my @words = split /::/, $line;
    print join(", ", @words), "\n";
    print qq{\$words[1] --> $words[1] and \$words[3] --> $words[3]}, "\n";
}



__DATA__
ChipId 1925 SubVersid 0001

$ perl pm_1132055.pl
ChipId 1925 SubVersid 0001
$words[1] -->  and $words[3] -->