while ($content =~ /(\**\s?\w+\.?\s+\S*\.?\s*\w*\.?\/?\s*\w*\.?\/?\s*\w*\.?\/?\s*\(\*?[A-Z]{2,4}\))/g){
print RAW "$1\n";