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