Help for this page

Select Code to Download


  1. or download this
     +----------------------------- In the scalar $s (interpreted as a str
+ing),
 |       +--------------------- if you find an _ (underscore)
...
 |       |   |             |
 V       V   V             V
$s =~ s{ _ (?= [^_]* \z) }{,}xms;
  2. or download this
    c:\@Work\Perl\monks>perl -wMstrict -le
"use 5.010;
...

'3rd_device_MO_Gig.1/1'
'3rd_device_MO,Gig.1/1'