#!/usr/bin/perl
# Quick script to add a ; at the end of each line except blank line

open (FILE, "/export/home/bumm/test.txt") || die ("Could not open file <br> $!");
while (<FILE>) {
   $line = <FILE>;
   $line =~ s!$!;!
   print ("$line\n");
}

close (FILE);