Capture the two strings to be swapped using a regex then put them back together in opposite order:

$origin =~ s/\( ([^ ,]+) \s*,\s* ([^ )]+) \) /($2 $1)/x;
[download]

Note that the /x allows the spaces to be used to break up the expression for easier understanding.