use PDL;
use PDL::Char;
$PDL::SHARE = $PDL::SHARE; # keep stray warning quiet

use strict;
use warnings;

my $source = PDL::Char->new('ATTCCGGG');
for my $str (qw(ATTGCGGG ATACCGGC)) {
	my $match = PDL::Char->new($str);

	# Is a PDL::Char
	my $diff = $match != $source;
	
	# Show diff
	print join(' ', $diff->list), "\n";
}

##</code><code>##

$PDL::SHARE = $PDL::SHARE; # keep stray warning quiet