my $regex = qr/^.*$/m;
print "$regex\n";       # (?^um:^.*$) in 5.16.0