1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/env -S perl -anF,

# Usage: getSxPlasmidFileTarget.pl plasmid_file
# Extract target from plasmid_file.

use feature 'say';

$rev = scalar reverse $F[1];
$rev =~ m/[acgt]/g;
$target = substr($F[1], length($F[1]) - pos($rev) + 1, 44);
substr($target, 16, 2) = "CC";
say $target;