>perl -wMstrict -le "my $blank_png = 'blank.png'; print qq{\noutput:}; for (@ARGV) { print qq{ in: $_}; my @raw_files = split; my @blanked_files = interleave_blanks($blank_png, @raw_files); print qq{out: @blanked_files}; } sub interleave_blanks { my $blank_file = shift; my $prev_file = $_[0]; reverse map { my $repeat = $_ eq $prev_file; $prev_file = $_; $repeat ? ($blank_file, $_) : ($_); } reverse @_ ; } " "12.png 06.png 06.png 03.png 07.png 07.png" "07.png 12.png 06.png 06.png 03.png 07.png 07.png" output: in: 12.png 06.png 06.png 03.png 07.png 07.png out: 12.png 06.png blank.png 06.png 03.png 07.png blank.png 07.png in: 07.png 12.png 06.png 06.png 03.png 07.png 07.png out: 07.png 12.png 06.png blank.png 06.png 03.png 07.png blank.png 07.png blank.png