waffle2k · November 4, 2011 03:38
diff --git a/gistfile1.pl b/gistfile1.pl
 #!/usr/bin/perl

 while( <> ){
        if( /^(.*?),(.*)/ ){
                for( my $count = 0; $count < 1000; $count++ ){
                        printf "%s%.3d,%s\n", $1, $count, $2;
                }
        }
 }
	#!/usr/bin/perl

	while( <> ){
	if( /^(.?),(.)/ ){
	for( my $count = 0; $count < 1000; $count++ ){
	printf "%s%.3d,%s\n", $1, $count, $2;
	}
	}
	}