while ($data =~ m{(\d+-)(\d+-)(\d+)(\s*/\s*)(\d+)(\s*/\s*)(\d+)}g) {

    print "$1, $2, $3, $4, $5, $6, $7\n";

}