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

##</code><code>##

$right =~ s/\s+//g;

##</code><code>##

$right =~ s/-$//;