perl -lpe "}{${'~'^'!'}=$." file

##</code><code>##

#!/usr/bin/perl -lp
}{${'~'^'!'}=$.

##</code><code>##

perl -lpe '}{${"#"^"|"}=$.' file