Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
        print "," unless $index == $#values;
    }
}

Select or download this

$ perl 1098967.pl
Usb2[val1,val2,Usb4[val4]],Usb3[val3]
val1,val2,Usb4[val4]
$