in reply to split number into seperate numbers and store in an array or seperate variables
use strict; use warnings; use Data::Dumper; my $dsfe_mask = q{String: "00.55.55.00"}; $dsfe_mask =~ s/\n|STRING: //g; $dsfe_mask =~ s/"+//g; $dsfe_mask =~ s/\D+//g; my @list = split(//,$dsfe_mask); print Dumper(\@list); __END__ $VAR1 = [ '0', '0', '5', '5', '5', '5', '0', '0' ];
|
|---|