$text = 'Cheese.Bacon';
  $v1 = '(\w+)\.(\w+)';
  $v2 = '$2\.$1';
  $test =~ s/$v1/$v2/;

##</code><code>##

  $text = 'Bacon.Cheese';

##</code><code>##

  $text = '$2\.$1';