thanks jimbo, i could do that like this

$line =~ s/the data is {(.*)}/the string was \(\"$1\"\)/;

sorry for the confusion, since this is a model of the actual problem i faced. I could not give my company data directly here which would have been a solution for your doubt!

But sometimes it does not hear good to listen such comments when somebody tends to ask a question after a hectic session of trial in the office along with the tensions to finish the things within the last quarter of the year!!

well, thanks anyway.