my $c = '+000000';
print 'contains' if $c =~ /\+\d\d\d\d\d\d/;