What I meant was, writing "h|hs|hsb|hsbn" yourself is tedious. Better to have Perl generate that for you:

my %abbrevs = map {
  my $word = $_;
  ($word => join("|", map { substr($word, 1, $_) } 1 .. length($word) 
+}))
} qw( hsbn admin ... );
[download]