[Omaha.pm] Search and replace

[Jay Hannah]

Challenge:  Write this before I get around to it this afternoon 
sometime.  :)

j

Objective: find $search_string in $seq and replace it with the opposite case

Search is case sensitive. Two examples:

        search_string=  att            ATT
        seq=            gaattcacccgat  GAATTCACCCGAT
        result=         gaATTcacccgat  GAattCACCCGAT