open PLAY, $playlist . ".wpl";

# Get original drive letter
my $original_drive_letter;
while (<PLAY>) {
 print "$counter\n";
 if (/src=\"(.)\:\\/) {
   $original_drive_letter = $1;
   close PLAY;
  }
}