Help for this page

Select Code to Download


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