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