$PatternToMatch="^SELECT";
$tmpfile="pattern.txt";
$var = '';
open(MYFILE, "<$tmpfile")|| die "Cannot create $tmpfile\n";
while (<MYFILE>) {
    $var .= $_ if /$PatternToMatch/;
}
.
.
.
.
eval $var;
[download]