in reply to pattern matching

$seq =~ s/ATGC//;

s/PATTERN/REPLACEMENT/

Replies are listed 'Best First'.
Re^2: pattern matching
by Anonymous Monk on Feb 10, 2012 at 10:57 UTC

    i am sorry for not being clear if it is
    XYZATGCAATGGCGTC.....
    YAZXSATGCAVVGBHYN...
    there are many patterns

      The sequence should be trimmed from the begining ofATGC to full sting and should give only XYZ (for example if the string XYZATGCAATGGCGTC.....

        use Modern::Perl; while (<DATA>) { chomp; # remove trailing line break say "original string is: '$_'"; s/ATGC.*$//; # strip 'ATGC' and anything following it say "processed string is: '$_'"; say "----"; } __DATA__ 123ATGC 123ATGC456 ATGC123 123ATGC456ATGC789 ATGC 12345

        produces output...

        original string is:  '123ATGC'
        processed string is: '123'
        ----
        original string is:  '123ATGC456'
        processed string is: '123'
        ----
        original string is:  'ATGC123'
        processed string is: ''
        ----
        original string is:  '123ATGC456ATGC789'
        processed string is: '123'
        ----
        original string is:  'ATGC'
        processed string is: ''
        ----
        original string is:  '12345'
        processed string is: '12345'
        ----
        
        special regex variables

        $,=qq.\n.;print q.\/\/____\/.,q./\ \ / / \\.,q.    /_/__.,q..
        Happy, sober, smart: pick two.