Select Code to Download

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

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

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