use Modern::Perl;
use Data::Dump qw/dump/;
use XML::Twig;

my $text;
my @results;
{ local $/ = undef; $text = <DATA>; }
my $t = XML::Twig->new( twig_handlers => { script => \&script } );
$t->parse("<wrapper>$text</wrapper>");
say dump(@results);

sub script {
    my ( $t, $script ) = @_;
    my $text = $script->trimmed_text();
    push @results, $text;
}

__DATA__
<script></script>
<script>var onWL=0;</script>
<script>
        var a_fInDelItms = 0;
</script>