One can do something similar with perl -de 0; just set $_ to your sample data and then try x /foo/ until you get what you want (which has the added benefit of showing what captures captured as well).