title: Can I replace the binding operator with the smartmatch operator in Perl?
body: <p>How can I write this with the smartmatch operator (<code>~~</code>)?</p>
  
  <pre><code>use 5.010;
  
  my $string = '12 23 34 45 5464 46';
  
  while ( $string =~ /(\d\d)\s/g ) {
      say $1;
  }
  </code></pre>