$reg_exp = '\d{4}';
$string = 'The year is 2001, the month is April.';

$req_exp = quotemeta $req_exp;
$string =~ /($req_exp)/;

print $1;