perl script for chopping apart BBj programs into subroutines