Help for this page
\nb\v5\srcccc\ans.cpp@@\main\
$dir = nb; $subDir = v5; $file = ans.cpp
while (<INFILE>) { if(/\\([^\\]+).*?(\w+\.cpp)/) ... } for (@thing) { my ($dir,$subDir,$file) = @$_;