#! /bin/local/perl

# Uudecode in perl - handles multiple uuencoded files in one.

$writing = 0;
while (<>) {
	if (/^begin [0-9]+ (\S+)$/) {
		close OUT if $writing;
		$writing = 1;
		open(OUT,">$1") || die "Cannot open $1 ($!)\n";
	}
	elsif (/^end$/) {
		close OUT if $writing;
		$writing = 0;
	}
	elsif ($writing) {
		$line = unpack('u',$_);
		print OUT $line;
	}
}
close OUT if $writing;
