#!/usr/bin/perl
use strict;
use warnings;

open SEQ,  '<', 'data1.dat' or die $!;
open MASK, '<', 'data2.dat' or die $!;

while ( my $seq = <SEQ> ) {
  my $mask = <MASK>;

  while ( $mask =~ m/(N+)/g ) {
    my $length = length $1;
    my $start  = pos($mask) - $length;

    my $lc_seq = lc substr( $seq, $start, $length );

    substr( $seq, $start, $length, $lc_seq );
  }
  
  print $seq;
}

close MASK;
close SEQ;