sub insert_the_string {
	
    my $old_file = shift;
	my $new_file = $old_file . "sql2";
	my $line = '';

	open(OLD, "< $old_file");
	open(NEW, "> $new_file");

	my $text .= concatenate_string_to_insert(); # documentation header
	$text .= "as\n";
	my $as_RE = "AS";  # replace the first occurance of 'AS' after the stored procedure definition
	

	select(NEW); # new default for print
	
	while (defined($line = <OLD>) ){
#		chomp $line;
		if ($line =~ s/$as_RE/$text/) {
			chomp $line;
			$line .= <OLD>;
			redo unless eof(OLD);
		}
		
		print NEW $line;
	}
	close(OLD);
	close(NEW);
	
	rename($old_file, "$old_file.orig");
	rename($new_file, $old_file);

}