$line =~ s/wordone\s*\((.*)\);/wordtwo:$1;/s;