perl -ne 'push @x, m/(\d+)"$/ }{print join (",",@x),"\n"' out.txt