如何对字符串中的子字符串重新排序？

如何在 Perl 中的正则表达式中进行以下转换？

British style   US style
"2009-27-02" => "2009-02-27"

我是 Perl 新手，对正则表达式了解不多，我能想到的就是提取“-”的不同部分，然后重新连接字符串，因为我需要即时进行转换，我觉得我的方法将非常缓慢且丑陋。

use strict;
use warnings;
use v5.10;

my $date = "2009-27-02";
$date =~ s/(\d{4})-(\d{2})-(\d{2})/$1-$3-$2/;
say $date;