Yes! Indeed this is an excellent solution. Thanks for the efford, I will write it down somewhere for future reference. :-)

my ($nth) = $str =~ /(?:\w+\W+){3}(\w+)/; # capture 4th word
[download]