perl 的正则表达式（想匹配create table 开头的句子）

peso

如题：
读取一个SQL文件 ， 想匹配以create table  或者是create procedure 或者是crate or replace produre  这样开头的语句，正则表达式如何写这个判断条件。
其中，大小写不确定，中间的空格也不确定

我主要是想判断该语句是创建一个过程或包，  还是该语句是一个建表，视图的语句。

另：我想判断一行的开头是/*   如何用正则表达式匹配。

donkey566788

~/^create\s+(table|procedure).*/