Here's a much worse way to do this, which is neither big or clever (although it does work):

my $input = "(55.950254, -3.187606)";
(my $result = join ' ', eval "reverse$input" ) =~ s/(.*)/($1)/;
[download]