Select Code to Download

use strict 
use Win32::OLE qw(in with); 
...
foreach $rate($Word->ActiveDocument->Selection->{Text}){
if ($rate =~ /2M/){
print $rate; }}

$Word->ActiveDocument->Selection->{Text}; 
$line1 = $Word->Selection->wdline(2)->{Text}; 
pirnt $line1;

$Word->ActiveDocument->Range($Word->ActiveDocument->text)->Select;
my $Str = $Word->Selection->Text;
print( "Selection=$Str.\n" );

foreach $rate($Word->Selection->WholeStory)
foreach $rate($Word->Content->Text)