my $text = 'query=bla,viel_anderer_text,length=4,nochmal anderer text';

if ( $text =~ m/(length=\d+)/ ) {
  print "Treffer: $1\n";
}