foreach $i(@n){
    $i =~s/\s//gm;
    }
foreach $i(@n){
    unless ($i =~ /^\d{16}/) else ($i =~ /.{30}Some search string.{30}/)
    $i =~ s/.//gm;}
    }