Select Code to Download

while(<>)
{
...
        print;
    }
}

string1
.....
string2

#!/usr/bin/perl -w
use strict;
...
print "desc: @desc\n";
print "data: @data\n";
print "new: @new\n";

    if(($_ eq "NewTag:") .. ($_ eq "Somethingelse:"))
    {
        ...
    }

NewTag:            # sets the third flip flop to true
...
...
.....                   
.....            # these get given to the third
.....                   # option finally.

if(/$date1/../$date2/)
{
}