$_ =~ s/taxman.add.subloc.//g if $_ =~ /taxman.add.subloc./

##</code><code>##

s/taxman\.add\.subloc\.//g

##</code><code>##

my @sub_locs = map { /taxman\.add\.subloc\.(.*)/ ? $1 : () } @session_keys;