http://www.perlmonks.org?node_id=1035466


in reply to Printing regular expression variable

This "wrapper" has a meaning. Moreover, the "wrapper" may be different in a different version of Perl. Try wrapping regular expressions with flags: 
my $regex = qr/^.*$/m;
print "$regex\n";       # (?^um:^.*$) in 5.16.0

[download]

See perlre - Perl regular expressions for details.

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

In Section Seekers of Perl Wisdom