use strict;
my $str = '<note>accessed 13</note> March <year>2022</year>
<note>accessed 13th</note> March <year>2022</year>
<note>accessed 8</note> April <year>2022</year>.
accessed 21st February 2020
accessed 32 Febr 2022
accessed 32 February 2022
accessed 30 February 202
accessed 30 January 2022
accessed 30 Jan 2022
accessed 30 February 2022
accessed 30 Feb 2022
accessed: 30 March 2022
accessed on 30 Mar 2022
accessed 30 April 2022
accessed 30 Apr 2022
accessed 30 May 2022
accessed 30 June 2022
accessed 30 Jun 2022
accessed 30 July 2022
accessed 30 Jul 2022
accessed 30 August 2022
accessed 30 Aug 2022
accessed 30 September 2022
accessed 30 Sep 2022
accessed 30 October 2022
accessed 30 Oct 2022
accessed 30 November 2022
accessed 30 Nov 2022
accessed 30 December 2022
accessed 30 Dec 2022
accessed on 30.12.2022
accessed on 30.13.2022
accessed on 34.12.2022
accessed on 30.12.2023
accessed on 30.15.2022
accessed on 01.12.2022
accessed on 41.12.2092
accessed on 30-12-2022
accessed on 30-13-2022
accessed on 34-12-2022
accessed :30-12-2023
accessed :30-15-2022
accessed :01-12-2022
accessed :41-12-2092
accessed : 30/12/2022
accessed : 30/13/2022
accessed :34/12/2022
accessed :30/12/2023
accessed : 30/15/2022
accessed 01/12/2022
accessed 41/12/2092
';
my $regex = qr/(?:<[^>]*>)?(accessed(?:\s*\:?\s*| on ))((?:[0-2]?[0-9]?|30|31)(?:st|nd|rd|th)?)(?:<\/[^>]*>)?([\.\-\/ ])(Jan(?:uary)?|Feb(?:ruary)?|Mar(?:ch)?|Apr(?:il)?|May|June?|July?|Aug(?:ust)?|Sep(?:tember)?|Oct(?:ober)?|Nov(?:ember)?|Dec(?:ember)?|[1-9]|1[012])([\.\-\/ ])(?:<[^>]*>)?(20\d{2})(?:<\/[^>]*>)?/mp;
if ( $str =~ /$regex/g ) {
print "Whole match is ${^MATCH} and its start/end positions can be obtained via \$-[0] and \$+[0]\n";
# print "Capture Group 1 is $1 and its start/end positions can be obtained via \$-[1] and \$+[1]\n";
# print "Capture Group 2 is $2 ... and so on\n";
}
# ${^POSTMATCH} and ${^PREMATCH} are also available with the use of '/p'
# Named capture groups can be called via $+{name}
Please keep in mind that these code samples are automatically generated and are not guaranteed to work. If you find any syntax errors, feel free to submit a bug report. For a full regex reference for Perl, please visit: http://perldoc.perl.org/perlre.html