Хранение результата regex в новой переменной

Приведенная ниже программа предназначена для перестановки строк. В строке 8 я пытаюсь сохранить результаты regex в новую переменную $newdate, но когда $newdate печатается в строке 9, она отображает только 1. Как я могу изменить свой код, чтобы $newdate хранила значение $date, полученное в результате операции regex?

1 #!/usr/bin/perl
2 
3 # This program changes the date format from mm/dd/yyyy to yyyy,mm,dd
4 
5 $date = '21/11/2011';
6 print "Current: $date\n";
7
8 $newdate = $date =~ s/(..)\/(..)\/(....)/$3,$2,$1/;
9 print "New: $newdate\n";