The Final Rewrite

Thru PERL’s pattern match and variable assigning, it is much easier to get the desired numeric values.
However, be careful with backslash escape characters to designate special character classes