http://qs1969.pair.com?node_id=360374

<Petruchio> #!/usr/bin/perl -l
<Petruchio> use strict;
<Petruchio> use warnings;
<Petruchio> $, = "\n";
<Petruchio> print grep { -e }
<Petruchio> map { my $i = $_; map {"$_/$i.pm"} @INC }
<Petruchio> grep { s!::!/!g; s/.pm$//; 1 }
<Petruchio> @ARGV;


<Petruchio> #!/usr/bin/ruby
<Petruchio> ARGV.each { |i| $:.each { |j| puts
Dir"#{j}/#{i}.rb" } }

==========================================================
Initial:

0000000 54 41 47 43 61 72 20 4c 61 6e 67 75 61 67 65 00
0000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
0000040 00 47 75 69 64 65 64 20 42 79 20 56 6f 69 63 65
0000060 73 00 00 00 00 00 00 00 00 00 00 00 00 00 00 55
0000100 6e 69 76 65 72 73 61 6c 20 54 72 75 74 68 73 20
0000120 61 6e 64 20 43 79 63 6c 65 73 00 00 00 30 00 00
0000140 00 43 72 65 61 74 65 64 20 62 79 20 47 72 69 70
0000160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0f 11
0000200

After editing in xmms:

scott@Bean:~/Code/C/Mp3Rating/Code/tests$ tail -c 128 /home/scott/mp3/Guided\ by\ Voices/Universal\ Truthes\ and\ Cycles/Guided\ By\ Voices\ -\ Universal\ Truths\ And\ Cycles\ -\ 15\ -\ Car\ Language.mp3 | od -t x1 -
0000000 54 41 47 43 61 72 20 4c 61 6e 67 75 61 67 65 20
0000020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000040 20 47 75 69 64 65 64 20 42 79 20 56 6f 69 63 65
0000060 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55
0000100 6e 69 76 65 72 73 61 6c 20 54 72 75 74 68 73 20
0000120 61 6e 64 20 43 79 63 6c 65 73 20 20 20 32 30 30
0000140 32 43 72 65 61 74 65 64 20 62 79 20 47 72 69 70
0000160 20 20 20 20 20 20 20 20 20 20 20 20 20 00 0f 11
0000200