#!/usr/bin/env perl -l

use strict;
use warnings;

use Test::More;

my @tests = (
    ['12', '12'],
    ['123', '>123<>123<'],
    ['1234', '>1234<>1234<'],
    ['12345', '12345'],
    ['123 4567 890', '>123<>123< >4567<>4567< >890<>890<'],
    ['123 4567 89', '>123<>123< >4567<>4567< 89'],
    ['123-4567-890', '123-4567-890'],
    ['01/02/2017', '01/02/2017'],
    ['2017-01-02T17:01:34', '2017-01-02T17:01:34'],
    ["12\n345\n6789\n0", "12\n>345<>345<\n>6789<>6789<\n0"],
);

plan tests => scalar @tests;

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

for my $test (@tests) {
    my ($string, $exp) = @$test;
    (my $got = $string) =~ s/$re/>$1<>$1</g;
    is($got, $exp, "Testing: $string");
}

##</code><code>##

1..10
ok 1 - Testing: 12
ok 2 - Testing: 123
ok 3 - Testing: 1234
ok 4 - Testing: 12345
ok 5 - Testing: 123 4567 890
ok 6 - Testing: 123 4567 89
ok 7 - Testing: 123-4567-890
ok 8 - Testing: 01/02/2017
ok 9 - Testing: 2017-01-02T17:01:34
ok 10 - Testing: 12
# 345
# 6789
# 0