my $pattern = qr{\+(?=\d{6})};

$string =~ /$pattern/;