title: Most elegant and fastest way to remove all leading zeroes in perl string
body: <p>I wrote <code>rmlz</code> function for trimming all leading zeroes from string.</p>
  
  <pre><code># remove all leading zeroes from string
  use strict;
  use warnings;
  use feature 'say';
  
  sub rmlz {
    my ( $str ) = @_;
    if ( $str =~ /^(.[0])/ ) {
      return substr( $str, length($1));
    }
    return $str;
  }
  
  say rmlz('0050625'); # must return 50625
  </code></pre>
  
  <p>Is there most elegant and clear way to rewrite this code ? Or regexp+length+substr is best option ?</p>