Text::Glob3pm

 use Text::Glob qw( match_glob glob_to_regex );
 print "matched\n" if match_glob( "foo.*", "foo.bar" );
 # prints foo.bar and foo.baz
 my $regex = glob_to_regex( "foo.*" );
 for ( qw( foo.bar foo.baz foo bar ) ) {
     print "matched: $_\n" if /$regex/;
 }

The following metacharacters and rules are respected.

"*" - match zero or more characters

"a*" matches "a", "aa", "aaaa" and many many more.

"?" - match exactly one character

"a?" matches "aa", but not "a", or "aaa"

Character sets/ranges

"example.[ch]" matches "example.c" and "example.h"

"demo.[a-c]" matches "demo.a", "demo.b", and "demo.c"

alternation

"example.{foo,bar,baz}" matches "example.foo", "example.bar", and "example.baz"

leading . must be explicitly matched

"*.foo" does not match ".bar.foo". For this you must either specify the leading . in the glob pattern (".*.foo"), or set $Text::Glob::strict_leading_dot to a false value while compiling the regex.

"*" and "?" do not match the seperator (i.e. do not match "/")

"*.foo" does not match "bar/baz.foo". For this you must either explicitly match the / in the glob ("*/*.foo"), or set $Text::Glob::strict_wildcard_slash to a false value while compiling the regex, or change the seperator that Text::Glob uses by setting $Text::Glob::seperator to an alternative value while compiling the the regex.