my @procedures = 
        ( $file =~
        m/^[^\n]*(FUNCTION|PROCEDURE)(.*?)IS/msgi )