Try not opening the file unless you have data in the @changes array:

if (@changes) {
   # do stuff here
}
[download]

I don't know how to count the length of the string...?:

my $length = length $some_string;
[download]

-- vek --