@lines = split(/\n/,$decrypted);

##</code><code>##

@lines = split(/\n/,$decrypted);
$num_lines = @lines;