https://bioinformaticsonline.com/snippets/view/27403/find-the-number-of-each-2-consecutive-characters-aa-acagatccca-with-perl? https://bioinformaticsonline.com/snippets/view/27403/find-the-number-of-each-2-consecutive-characters-aa-acagatccca-with-perl Wed, 18 May 2016 08:50:04 -0500 https://bioinformaticsonline.com/snippets/view/27403/find-the-number-of-each-2-consecutive-characters-aa-acagatccca-with-perl #!/usr/bin/perl -w use strict; my $subject = "AACGTACTGACGTACTGGTTGGTACGA"; my %results = (); while ($subject =~ m/[ACTG][ATGC]/g) { # matched text = $& if(exists $results{$&}) { $results{$&}++ } else { $results{$&} = 1; } } foreach (sort keys %results) { print "$_ : $results{$_}\n"; }]]> Jit