# $NODE is a common feature throughout the codebase, please, don't complaign about that element of my style.
my $filename = $NODE->{title};
$filename =~ s/[^A-Za-z0-9.-]/_/g;
$filename =~ s/__+/_/g;
$filename .= '.pl';