Use grep on the results of splitting your source lines on ;. If you just want to filter the file judicious use of the -F, -a, and -n options (see perlrun) for a one-liner would do the trick.