If I had a nickel for every time I have used this pattern

... | perl -ne 'print "$1 $2 ...\n" if /some-regex-with-capture-groups/' | ...