c:\@Work\Perl>perl -wMstrict -le
"my $data = '8000';
 ;;
 if ($data eq '8000' or $data eq '0080') { print 'yes 1'; };
 if ($data eq '8000' || $data eq '0080') { print 'yes 2'; };
"
yes 1
yes 2