[Omaha.pm] Search and replace

[Jay Hannah <jay@jays.net>]

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