i = ;

blurred=ImageEffect[i,{"MotionBlur",30,0 Degree}];
mask=Dilation[DeleteSmallComponents@Binarize[i,#[[1]]>.65 (#[[2]]+#[[3]])&],25];
ImageCompose[i,SetAlphaChannel[blurred,Blur[mask,50]]]