while <infile>
if $_ =~ :object_dir
$_ =~ s/\..//../nbssbase/$vob/g;