Thank you for your reply. I have it working now with the following little change

if ($. == 1){
     chomp($_);
#     $_ =~ s/$_/$_ 1.0/g;
     $_ .= " 1.0\n";  # i.e. $_ = $_ . " 1.0";
    }
[download]

Cheers
mndoci

"What you do in this world is a matter of no consequence. The question is, what can you make people believe that you have done?"-Sherlock Holmes in 'A study in scarlet'