print ( $str =~ /(?:\w+\W+){3}(\w+)/ ), "\n";