find | perl -ne "print qq($_) . qw(foo)"