open H,"pattern.txt";
$regexp=<H>;
close H;
chomp $regexp;
これでいいんでしょ？