my $string = "1.234.567.txt";
print "Found a good filename.\n" if /\d+\.txt/;