Hi Perl users, Quick question, I have a one long string with tab delimited values separated by a newline character (in rows) Here is a snippet of the the string:
chr1 ucsc exon 226488874 226488906 0.000000 - . gene_id "NM_173083"; transcript_id "NM_173083"; chr1 ucsc exon 226496810 226497198 0.000000 - . gene_id "NM_173083"; transcript_id "NM_173083"; chr1 ucsc exon 2005086 2005368 0.000000 + . gene_id "NM_001033581"; transcript_id "NM_001033581"; chr1 ucsc exon 2066701 2066786 0.000000 + . gene_id "NM_001033581"; transcript_id "NM_001033581"; I am trying to perform substitution on some values at the end of each rows, for example, I'm trying to replace the above string with the following: chr1 ucsc exon 226488874 226488906 0.000000 - . gene_id "NM_173083:12345"; transcript_id "NM_173083:12345"; chr1 ucsc exon 226496810 226497198 0.000000 - . gene_id "NM_173083:12345"; transcript_id "NM_173083:12345"; chr1 ucsc exon 2005086 2005368 0.000000 + . gene_id "NM_001033581:12346"; transcript_id "NM_001033581:12346"; chr1 ucsc exon 2066701 2066786 0.000000 + . gene_id "NM_001033581:12346"; transcript_id "NM_001033581:12346"; Here is the substitution command I am trying to use: $data_string=~ s/$gene_id\"NM_173083\"\; transcript_id \"NM_173083\"\;/\"NM_173083:12345\"\; \"NM_173083:12345\"\;/g; $data_string=~ s/$gene_id\"NM_001033581\"\; transcript_id \"NM_001033581\"\;/\"NM_001033581:12346\"\; \"NM_001033581:12346\"\;/g; I don't know why I am not able to substitute at the end of each row in the string. Any suggestions folks have are muchly appreciated. Thanks -Rich
