Select Code to Download

open(XFIL,"var.txt") || die $!;
        @main = <XFIL>;
...

close(XFIL);

if ($string =~ m/data/) { 
do whatever
}