TMTOWTDI, here is my attempt:

# $var is the original variable
$var =~ /(.*)((?:^[^\n]*\n){15})\z/ms;
my ($var1, $var2) = ($1, $2);
[download]