change:
$k =~ /(M\d{2}\.\d{3})/;
to:
$k =~ /(\w\d{2}\.\d{3})/;

If I still haven't understood you properly I would need to see a more complete example of the real data you are using.