http://www.perlmonks.org?node_id=150418


in reply to Winamp random m3u

first of all, i'd avoid using global variables (yeah, it's only a small script, but it should be habit).

second, you can rewrite the:

$result=~s/\//\\/g;

as:

$result =~ s{/}{\\}g;

to eliminate LTS.

anders pearson