#!/usr/bin/perl print " if (index == 0) {\n"; $line = ; print $line; $num = 1; while (<>) { print " } else if (index == $num) {\n"; $num++; print $_; }