while <out>
{
if ( m/^:dir/)
$_ = s/$_/:dir=../mainDir/sudir/somthing.cpp/;
}