use Syntax::Construct qw( // ... /r );

##</code><code>##

Unsupported construct /r at ... line ... (Perl 5.014)