use File::Spec ;

$a = "bla::blabla" ;
$b =~ s/\:\:/File::Spec->rootdir()/ ;

print "$b\n" ;

##</code><code>##

blaTestFile::Spec->rootdir()blabla