Select Code to Download

elsif ( $data eq "8000" || "0080" ) {
     $tid = .....;
}

c:\@Work\Perl\monks>perl -wMstrict -MO=Deparse,-p -le
"my $data = '8000';
...
    print('yes');
}
-e syntax OK