lhs=Expand[(1-0.57 B) (1-1.53 B+0.63 B^2)]

rhs=Expand[-(0.53+0.37 B+0.51 B^2) (1-1.53 B+0.63 B^2)]

u=((- (0.53+0.37 B +0.51 (B^2)))/((1-0.57 B)(1-1.97 B+1.37 (B^2)-0.34 (B^3))));
uc=Series[u,{B,0,5}]
Map[Coefficient[uc,B,#]&,Range[5]]

p=(1/((1-1.97 B+1.37 (B^2)-0.34 (B^3))));
pc=Series[p,{B,0,5}]
Map[Coefficient[pc,B,#]&,Range[5]]

xya={{-2.378,52.4},{-2.499, 53.5},{-2.473 ,55.6},{-2.330,58.0},{-2.053 ,59.5},{-1.739, 60.0},{-1.261,60.4},{-.569, 60.5}};

xa=Map[First,xya];
ya=Map[Last,xya];

ListPlot[xa,PlotJoined->True]

ListPlot[ya,PlotJoined->True]