Help for this page

Select Code to Download


  1. or download this
    open(my $fh, '<:encoding(UTF-8)', $qfn)
    or die("Can't open file \"$qfn\": $!\n");
  2. or download this
    s/([0-9]{3})-([0-9]{3})/$1\x{2014}$2/g
  3. or download this
    s/(?<=[0-9]{3})-(?=[0-9]{3})/\x{2014}/g