#!/bin/perl
open (FILE,$ARGV[0]) || die "Can't open $ARGV[0].\n";
while(<FILE>) {

	# Change this to your command separator character
	$s = "%;";

	s/([0-9]+)(d|u|n|e|w|s)/"$2$s"x$1/eg;
	s#($s|\ )([dunews]{2,})($s|\ )#
		@a = split //, $2;
		$r = "$1" . join("$s", @a) . "$3";
	#exg;
	print $_;
}