Help for this page

Select Code to Download


  1. or download this
    $string !~ /$pattern/
  2. or download this
    /(?:^\d|[_-]\d.)/
  3. or download this
    $ perl -E 'my @x = qw{aa1.2 aa1_bb2 aa1_2 aa1_2bb 1aa}; $_ !~ /(?:^\d|
+[_-]\d.)/ && say for @x'
aa1.2
aa1_bb2
aa1_2