my @save;
while (<$fh>) {
   /successful (match with captures)/; # mark the SV as CoW
   push @save, $_; # extend the lifetime of the SV's PV until removed from @save
}