#!/usr/bin/perl

use strict;
use warnings;

use Encode;

$\ = "\r\n";

print '#EXTM3U';
while (<>) {
	chomp;
	s{;.*$}{};
	s{^a:}{^E:};
	s{/}{\\}g;
	
	if (m{=[0-9A-F]{2}}) {
		s{=([0-9A-F]{2})}{chr(hex($1))}ge;
		
		my $s = eval { decode('utf-8',  $_); };
		$_ = $s unless ($@);
	}
	
	print '#EXTINF:0, -';
	print;
}