$match = $str =~ /^\+\d+/;