title: Improvised way to use split function
body: <p>I am using split function to extract the a string from given line. </p>
  
  <p><strong>exp :</strong></p>
  
  <pre><code>\abc\Logs\PostBootLogs\05-27-2014_17-05-51\UILogs_05-27-2014_17-05-52.txt 
  \abc\Logs\PostBootLogs\01-10-1970_20-33-22\01-10-1970_21-18-26\UILogs_01-10-1970_21-18-27.txt
  </code></pre>
  
  <p><strong>In the above exp we need to capture string which is there between PostBootLogs and UILogs_01-10-1970_21-18-27.txt</strong></p>
  
  <p>Code : </p>
  
  <pre><code>use strict;
  use warnings;
  my $data = '\abc\Logs\PostBootLogs\05-27-2014_17-05-51\UILogs_05-27-2014_17-05-52.txt';
  my $test1 = '\abc\Logs\PostBootLogs\01-10-1970_20-33-22\01-10-1970_21-18-26\UILogs_01-10-1970_21-18-27.txt';
  my @values = split('UILogs'(split('PostBootLogs', $data)));
  my @values1 = split('UILogs', $values[1]);
  
  print "$values1[0]\n\n";
  print "$test1\n\n";
  
  my @values_1= split('PostBootLogs', $test1);
  my @values1_1 = split('UILogs', $values_1[1]);
  
  print $values1_1[0];
  
  
  exit 0; 
  </code></pre>
  
  <p>is there any better way to do this thing? </p>