blob: b6bce2b053094f512a560a03ed57418c61edbf56 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#!/usr/bin/env perl
use strict;
use warnings;
use 5.016;
chomp(my $input = <>);
for my $start (1..length($input)) {
for my $length (4..8) {
next if $start + $length - 1 > length($input);
my $substr = substr($input, $start - 1, $length);
if ($substr eq (reverse $substr =~ tr/ACGT/TGCA/r)) {
say "$start $length";
}
}
}
|