use Perl6::Junction qw/all/;

my $sPhoneCapabilityCode = "00000490";
my $s3905CapabilityCode ="00000290";
chomp( my $sUnpackedCDPcap = <STDIN> );

if ( $sUnpackedCDPcap ne all($sPhoneCapabilityCode,$s3905CapabilityCode) ) {
	print "Bingo!\n";
}