$ perl -wle 'print +(split /#/, "a#b")[1];'
b

##</code><code>##

my (undef, $a) = split ...