my $dna = "AAAAAACAAACAAACCCAATATATATATACGACATATATTATATATTATACCCCGGG";
my $preciouss = substr $dna, 15, 28;
 
open (my $output, '>', "latex_file.tex");

print $output "\\documentclass{article}\n\\usepackage{color}\n";
print $output "\\begin{document}\n";
print $output "THIS IS MY BORING GENE: \\textcolor{red}{", $preciouss, "}\\\\\\textcolor{blue}{OKAY, OKAY... \\textit{NOT SO BORING}, {\\bf IS RED!}}";
print $output "\n\\end{document}";

close $output;

system("pdflatex latex_file.tex");
system("xpdf latex_file.pdf &");