$string =~ tr/1//d;

##</code><code>##

$string =~ s/\d//;

##</code><code>##

$char = substr($string,-6,1,'');