my $vob = "bllblbl";
my $subdir = "koko";
while (<data>)
{
s{^:object_dir=.*?([^/]*)$}{:object_dir=../$vob/$baseDir/$1} ;
print;
}