#! perl
use strict;
use warnings;

for ('Look here: http://example1.com/cool.mp3 for a great listen!',
     'http://example.com/ this is some text about my .mp3 files.')
{
    print "Match: $1\n" if m!\b(http://\S*?\.mp3)\b!;
}