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

##</code><code>##

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