http://www.perlmonks.org?node_id=194129


in reply to file data

you are not escaping the period (if you are trying to get a literal period).
s{^:object_dir=\.*?([^/]*)$}{:object_dir=../$vob/$baseDir/$1} ;