Help for this page

Select Code to Download


  1. or download this
    use Data::Dumper;
my $re_bad  = qr'xx([A-Z$#@_!]*) (?! [A-Za-z0-9$#@_] )'x;
print $re_bad;
  2. or download this
    (?x-ism:xx([A-Z$#@_!]*) (?! [A-Za-z0-9$#@_] )#
)
  3. or download this
    my $re_bad  = qr'xx([A-Z$#@_!]*) (?! [A-Za-z0-9$#@_] )'x;
print $re_bad;
  4. or download this
    (?x-ism:xx([A-Z$#@_!]*) (?! [A-Za-z0-9$#@_] ) 
)