Help for this page

Select Code to Download

Select or download this
$text =~ s{ (?: $url | $date) (*SKIP) (*FAIL) | ($digits_3_4) }{...}xmsg

Select or download this

my ($month_name) =
  map  qr{ (?<! [[:alpha:]]) (?: $_) (?! [[:alpha:]]) }xms,
...
  |
  $day   $sep $month $sep $yr
  }xms;