$reference_string = 'gctagctgatgctagcagcagcatgtagctagctgacga'
$substring = 'aatgctagctagc'

$output_line = qw{ } x length($reference_string);
substr $output_line, $start_position, $length, $substring;
print $reference_string, "\n", $output_line;