find . -name "*.c" -exec cat {} \; |perl -ne 'print $1\n" if $_ =~ /(.*)(.*?(?=\d))$/'