Public Scratchpad

Download, Select Code To D/L

Help for this page

Select Code to Download

Select or download this

use strict; 
use warnings;
...
my $number = '343243-23423*234-2342-3';
my @count =  $number =~ /[\.\- :*\|]/g;