$Word->Selection->HomeKey(wdLine);
   $Word->Selection->Find->{Text} = "Heading1";   
   $Word->Selection->Find->execute;
   $Word->Selection->Copy;    
  
   $Word->Selection->MoveRight(wdCell);
   $Word->Selection->Find->execute;     
   $Word->Selection->Copy;
 
   $clipboard  = Win32::Clipboard();
   $var   = $clipboard->Get();