https://www.theoryofcomputation.co/regular-expression-using-perl/