perl -wE 'my $url=q|http://test-text-ad-1234.html|; say $url=~/(\d{4})\.htm/i'