\nb\v5\srcccc\ans.cpp@@\main\

##</code><code>##

$dir = nb;
$subDir = v5;
$file = ans.cpp

##</code><code>##

while (<INFILE>) {
 if(/\\([^\\]+).*?(\w+\.cpp)/)  
   {   
push @thing, [$1,$2,$3];
   }
   }   
for (@thing) {
	my ($dir,$subDir,$file) = @$_;