#! perl -slw
use strict;

m[(<[^/>]+/>)] and print "'$1'" while <DATA>;

__DATA__
<w:body>
 <w:p w:rsidR="00A654E7" w:rsidRPr="00AD741F" w:rsidRDefault="00A654E7" w:rsidP="00A654E7">
  <w:pPr>
   <w:pStyle w:val="Standard"/>
   <w:rPr>
    <w:rFonts w:asciiTheme="minorHAnsi" w:hAnsiTheme="minorHAnsi" w:cstheme="minorHAnsi"/>
    <w:sz w:val="20"/>
    <w:szCs w:val="20"/>
   </w:rPr>
  </w:pPr>
  <w:r w:rsidRPr="00AD741F"/>
</w:body>

##</code><code>##

C:\test>junk23
'<w:pStyle w:val="Standard"/>'
'<w:rFonts w:asciiTheme="minorHAnsi" w:hAnsiTheme="minorHAnsi" w:cstheme="minorHAnsi"/>'
'<w:sz w:val="20"/>'
'<w:szCs w:val="20"/>'
'<w:r w:rsidRPr="00AD741F"/>'