Just get rid of the newlines in your Perl code, and you will only have added one-line. :)

More seriously, why are you using the measurement of the number of lines you have to add as the measurement of which way is better? The number of lines required to perform a function has little, if any, relation to performance of said function.