Select Code to Download

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

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

$right =~ s/-$//;