tighten the code

script.pl

@@ -42,14 +42,10 @@ sub get_mersenne_results() {
 }
 
 sub extract_first_table ($html) {
-    $html =~ s/\n//g;
-
-    my $te = HTML::TableExtract->new( depth => 0, count => 2 );
-
-    $te->parse($html);
-
-    return $te->first_table_found;
-
+    return HTML::TableExtract
+        ->new( depth => 0, count => 2 )
+        ->parse( $html =~ s/\n//gr )
+        ->first_table_found;
 }
 
 sub generate_output_table ($ts) {