use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';

my $str = "Some Text";

my $word = Win32::OLE->new('Word.Application');
$word->{Visible} = 1;
my $document=$word->Documents->Add;
$word->Selection->TypeText($str);
$word->Selection->MoveLeft(wdCharacter,
                           length $str,
                           wdExtend);