#!/usr/bin/perl -w
use strict;

use re 'debug';
my $test = "abc123abc1234abc";

$test =~ /(\d{4})/;
print $1;