#!/usr/bin/perl -w

use strict;
use warnings;

my $haystack = "Germany, 32049 Herford";

if ($haystack =~ /(.*?){20,40}, [a-zA-Z ]+/) {
  print "Match\n";
} else {
  print "End\n";
}