perl -ne 'print "$ARGV:$.:$_" if /substr/ .. /^}/' pp.c