Select Code to Download

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

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