<div>Привет MoscowPM!</div><div> </div><div>Есть код:</div><div> </div><div>#!/usr/bin/perl -w<br />use strict;<br />use warnings;<br />use 5.010;<br /><br />my $comment_pred = 'COUNTRY_SU';<br />for my $coutry (qw/SU USA GB RU/) {<br />    my $comment = $comment_pred =~ s/(COUNTRY_)SU/$1${coutry}/rg;<br />    say $comment;<br />}</div><div>после</div><div>perltidy -b test_perltidy.pl</div><div>  my $comment = $comment_pred =~ s/(COUNTRY_)SU/$1${coutry}/ rg;</div><div>r отлетает</div><div><a href="https://github.com/mishin/perltidy/issues/1">https://github.com/mishin/perltidy/issues/1</a></div><div> </div><div> это можно как-нибудь починить?</div><div>Спасибо.</div><div>-- </div><div>С уважением</div><div>Николай Мишин</div><div> </div><div> </div>