正規表現を外部のファイルから読み込ませることはできないでしょうか？

例えば次のスクリプトに対して、「/^hoge/」をスクリプトの中に直接書くのではなく
あらかじめ正規表現を記載したテキストファイルを別途用意しておいてそこから
読み込ませるようにはできないでしょうか？
どうぞよろしくお願いします。

☆こんなスクリプトがあるとして
my $str = 'hogehoge';
if ($str =~ /^hoge/) {
print "Match\n";
} else (
print "No match\n";
}

☆正規表現を書いたリストファイルを用意してそちらから読ませたい
# cat pattern.txt
^hoge