#my $re = qr{(?x: (?<![/-]) \b ( [0-9]{3,4} ) \b (?![/-]) )};
my $re = qr{(?ax: (?<!\d) (\d{3,4}) (?!\d) )};