https://bioinformaticsonline.com/snippets/view/40910/perl-script-to-delete-the-adjacent-repeats? https://bioinformaticsonline.com/snippets/view/40910/perl-script-to-delete-the-adjacent-repeats Wed, 05 Feb 2020 23:09:15 -0600 https://bioinformaticsonline.com/snippets/view/40910/perl-script-to-delete-the-adjacent-repeats /usr/bin/perl #Mostly the interview question for bioinfomatician ! #Write a code to delete the adjacent repeated character .... $string='ATTTTTTGGC'; # This should be converted to ATGC $string =~ s/(\w)\1/$1/g; print $string; #For more helps ... check out this #This bit of code will do the job: $string =~ s/(.)\1/$1/g #Alternatively, if you want to ignore case when comparing, you could use: $string =~ s/(.)\1/$1/gi #And finally, if you wanted to trim any number of duplicates down to a single letter, this would work: $string =~ s/(.)\1+/$1/gi]]> Rahul Nayak