#!/usr/local/bin/perl -n -i.bak

# converts the header format for the MM*.seq artificial sequence databases.

foreach (<>) {
    if (/^>/) {	# header line
	my ($ordinal) = /(\d+)$/;	# line ends with ordinal
	printf (">MM%05d\n", $ordinal);
    } else {
	print;
    }
}