#!/usr/bin/perl

use strict;
use warnings;

open my $fh, "<:encoding(utf16)", shift
    or die "Can't open for input: $!";

<$fh>;
while (1){
    print scalar <$fh>;
    my $line = <$fh>;
    if ($line =~ s/`(\d+)`//){
        system("mpg321", "-q","$1.wav");
    }
    print $line;
    last unless defined(<>);
}