# & = words & digits (alphanumeric)
# @ = digits
# # = word chars ie [a-zA-Z_]
# . = literal . used to separate parts of interest
# Anything else is taken to be literal in meaning

my $str = "some-file.123.tif";
my $find_str = qq!some-#.@.&!;
print "Here is our filename: $str\nHere is the interface string: $find_str\n";

my @bits = split '\.', $find_str;
for (@bits) {
    s/([^&@#a-zA-Z_])/\\$1/g;
    s/&/\\w*/g;
    s/@/\\d*/g;
    s/#/[a-zA-Z_]*/g;
    $_ = "($_)";
}
my $re = join "\\.", @bits;
print "Here is the RE: m/$re/";

$re = qr/$re/;
my (@matches) = $str =~ m/^$re$/;

$" = ', ';
print "\nAnd we got: @matches";

__DATA__
Here is our filename: some-file.123.tif
Here is the interface string: some-#.@.&
Here is the RE: m/(some\-[a-zA-Z_]*)\.(\d*)\.(\w*)/
And we got: some-file, 123, tif