use Win32::Shortcut;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Word';

my $x = Win32::OLE->GetActiveObject('Word.Application');

# snip

$x->Selection->Delete( {
          Unit=>wdCharacter,
          Count=>1
     } );

# The above is my kiddy-scripted version of some VisualBasic that I
# came upon:  Selection.Delete Unit:=wdCharacter, Count:=1