Help for this page
s{(^)?\s+(\z)?}{ defined $1 || defined $2 ? '' : ' ' }gex
$ perl5.8.3 -del DB<1> x "hi" =~ /i\z/ ... DB<1> x "hi" =~ /(i)(\z)?/ 0 'i' 1 ''