Which Regrex

[David Gilden]

Is version 2 a better choice here?
Thx
Dave


#!/usr/bin/perl

# desired result ""bill gates the third"

$name= "bill_gates_the_third_132506042001.html";


# vers 1:
    $name =~ s/^(\w+?)_(\d+).html$/$1/;
    $name =~ tr/_/ /;

print "$name\n"; 

# ----
# vers 2:

$name= "bill_gates_the_third_132506042001.html";
 $name =~ s/\d+.html$//;
 $name =~ tr/_/ /;
 $name =~ s/\s$//;

print "$name\n"; 


__END__