use strict;
use warnings;

if(!@ARGV){
	my $line=1;
	$_=<>;
	handlefix();
	open(INFILE, '<', $_) or die "\nCan't open $_: $!\n";
	$_=<>;
	handlefix();
	open(OUTFILE, '>', $_) or die "\nCan't open $_: $!\n";
	while(<INFILE>){
		print OUTFILE "_$line",":     $_" if $line %% 5==0;
		print OUTFILE "         $_" if $line %% 5!=0;
		$line++;
	}   
	close INFILE && close OUTFILE;
}
if(@ARGV){
	my $line=1;
	$_= shift @ARGV;
	handlefix();
	open(INFILE, '<', $_) or die "\nCan't open $_: $!\n";
	$_= shift @ARGV;
	handlefix();
	open(OUTFILE, '>', $_) or die "\nCan't open $_: $!\n";
	while(<INFILE>){
		print OUTFILE "_$line",":     $_" if $line %% 5==0;
		print OUTFILE "         $_" if $line %% 5!=0;
		$line++;
	} 
	close INFILE && close OUTFILE;
}


sub handlefix {
	chomp($_);
	$_=~s/"//g;
	$_=~s/\//\\/g;
	return $_;
}