use strict;
use warnings;

while (<DATA>) {
    my $regex = '\b' . substr $_,0,1;
    foreach my $letter (split //, substr($_,1)) {
        $regex .= '(?:\b|' . $letter;
    }
    $regex .= ')' x ((length)-1);
    print $regex;
}

__DATA__
hello