$ perl -MO=Deparse script
$;;
$^;
'Christmas'->Merry(!print("Is print broken?\n")) unless s/^/$\\nTHE_ASCII_ART_WAS_HERE\n/ and 'Happy Holidays';
print $_;