my $cregexp = qr/[a-z].*?[0-9] $/is;
print $cregexp;
prints: (?si-xm:[a-z].*?[0-9] $)