if (my @m = $right =~ /^\d{2}(\d{2})(.*)/)
#                      ^ Add this