use strict;
use warnings;

my $seq = "AGACGAGTA";
my $mask=''; vec ($mask,$_,1)=1 for (2..6);
print "Str:  $seq\n";
print "Mask: ", unpack ("b*",$mask),"\n";