Select Code to Download

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

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

Compiling REx `(\d{4})'
size 8 first at 5
...
  13 <23abc1234> <abc>    |  8:    END
Match successful!
1234Freeing REx: `(\d{4})'