#!/usr/bin/perl -w
use strict;

while (<DATA>) {
    my @a = split(/\\/);
    print "$a[1] $a[2] $a[4]\n";

}

__DATA__
\nb\v5\srcccc\ans.cpp@@\main\
\nb\v5\srcccc\ans.cpp@@\main\
\nb\v5\srcccc\test.cpp@@\main\
\nb\v5\safe\test.cpp@@\main\
\nb\v5\safe\test.cpp@@\main\
[download]