perl -pi.bak -e 'tr/^/:/' file list here

##</code><code>##

split /[\^:]/, $data