title: Perl split pattern with delimiter at specific position
body: <p>I have a strings which i wanted to split in perl with delimiter but at specific position.
  $Str = d2a_orx_lego_clk
  The output i wanted is d2a_orx , ie split only after second underscore.
  The code i tried splits the string in two parts but at first underscore not at second.</p>
  
  <pre><code>#!/bin/perl
  
  $str = d2a_orx_lego_clk;
  #print join('_', split(/_/, $str )), "\n";
  my ($k, $v) = split(/_/, $str, 2);
  print "$k\n";
  print "$v\n";
  </code></pre>
  
  <p>Thanks</p>