Select Code to Download

$data eq "8000" or $data eq "0080"

the same as:

$data eq "8000" || $data eq "0080";

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

c:\@Work\Perl>perl -wMstrict -le
"my $data = '8000';
...
"
yes 1
yes 2

c:\@Work\Perl>perl -wMstrict -MData::Dump -le
"my ($x, $y) = (4, 5);
...
[1, 2, ""]

but $x and $y are still 4 and 5