PERL: Match a shell expression

shexp_match.pl

#!/usr/bin/perl

sub shexp_match {
    my $shexp = shift;
    my $word = shift;
    
    # Translate a shell expression into a regular expression
    my $re = $shexp;
    # Convert all .'s into quoted .
    $re =~ s/\./'\.'/ge;
    print "1. \"$re\"\n";
    # Convert all unquoted *'s into .*
    $re =~ s/(^|[^\\])\*/"${1}.*"/ge;
    print "2. \"$re\"\n";
    # Convert all unquoted ?'s into ?
    $re =~ s/(^|[^\\])\?/"${1}."/ge;
    print "3. \"$re\"\n";
    # Convert {a,b,c} into (?:a|b|c)
    while ($re =~ /(^|.*[^\\])\{(.*[^\\])?\}(.*)/) {
        my ($before, $list, $after) = ($1, $2, $3);
        $list =~ s/(^|[^\\]),/"${1}|"/ge;
        $list = "(?:${list})";
        $re = $before . $list . $after;
        print $re, "\n";
    }
    # Anchor the expression
    $re = "^${re}\$";
    print qr{$re}, "\n";
    return $word =~ qr{$re} ? 1 : 0;
}

print shexp_match('h{e,o,\}}ll{o,i}.exe', 'hello.exe');