I was playing around some with a regex method and came up with this.
noop $regex($6-,/(.*)\s(\w*)/)
var %ApprovedBy = $regml(1)
var %Country = $regml(2)
Here's what that does...
noop lets us use $regex to fill $regml(1) and $regml(2) without having any output. Inside $regex(),
$6- tells it to only use the 6th word until the end, just like you'd do anywhere else. Because we know it starts at $6, we can do this. The two
/'s are used to show the start and end of the regular expression (regex). The
.* is used to match any number of characters and the
() around it tells mIRC to put the results into $regml(1).
\s is a space, so it's looking for a space after the "any number of characters". And the
\w* will match any number "word" characters (this doesn't include spaces, which is the important part) and then the
() tell mIRC to put the results into $regml(2).
Now, you need to look at this as a whole because it's not all done in steps like that or else the entire $6- will be in $regml(1) because of the "any number of characters" match. As a whole, it will look for "any number of characters, followed by a space, followed by any number of "word" characters." Because there is only one space in the regex, it knows that .* will be everything before the last word and \w* will be the last word.
Something to be aware of, however... as I mentioned, \w* matches and "word" characters. If you include anything else, it won't be included in the match. Punctuation, for example, is not part of \w* match. Because you're using a country, this should be okay, but think about it before using it.
For example, if the Country was written as S.Africa, only the S would be in $regml(2). If you think you'll use punctuation, or anything other than A through Z, a through z, 0 through 9, or _, then you might need to have the last part of this regex adjusted.
One final thing no matter what method you use... some countries are multiple words. I'm not sure if you've considered how that will work. Maybe you're just using abbreviations?