Hi Monks,
I'd like to read and execute Perl code that is contained in an external file, but I'm not sure how to approach this.E.g. 
#main Perl file
my $var = 100;
my $filename = "temp.txt";
open my IN, '<', $filename
    or die "Can't read '$filename': $!";
while (defined (my $line = <IN>)) {
    if($line =~ /^#/){
        #execute perl if statement here
         #Do something based on if statement processed
    };
};

## File to be read, temp.txt##
Some random text, not Perl.
#if($var == 100)
  output this text to a file
#endif

[download]
So the code above is split into two sections. The main code, and the code to be read (temp.txt). The if statement in temp.txt is signified by a "#" and the 'if' command can be recognised by a regex. The bit within the brackets ($var == 100) I would like to just dump straight into a real if statement, (or even just execute 'if($var == 100)'). The reason for dumping is to avaid having to code all those operators and brackets!
So if that has confused you, in summary I'd basically like to selectively read Perl code from an external file and execute it!
Cheers!

In reply to Reading and executing Perl by bingohighway

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.