Select Code to Download

Select or download this

$s = 'This, is, an, example. Keep $2.50, 1,500, and 192.168.1.1.';
$re_revdiablo =  qr[(?:[^\w\'\$!,.-]+|(?:(?<=\D)[.,])|(?:[.,](?=\D|$))
+)+];
...
print join ' | ', split $re_revdiablo, $s;

This | is | an | example | Keep | $2.50 | 1,500 | and | 192.168.1.1

Select or download this

$re_revdiablo =  qr[ 
    (?:                             # group, no capture
...
        ) 
     )+                             # 1 or more
]x;