reg1 = BoundaryDiscretizeRegion@
ConvexHullMesh@RandomReal[{-10, 10}, {40, 2}];
reg2 = BoundaryDiscretizeRegion@
ConvexHullMesh@RandomReal[{-3, 3}, {4, 2}];
{reg3 = RegionDifference[reg1, reg2]
, reg3["Show"] /. {___, {Line[a__]}, {Line[b__]}, ___} :> {Line[a]}}