@val = $num =~ /(\d+)/g;