use strict;
use warnings;
use Regexp::Common qw/URI/;

my  $text = 'http://perl-6.de/,';

if ($text =~ m/($RE{URI}{HTTP}(?<![.,]))/){
	print "Match: $1\n";
}
__END__
# Output:
Match: http://perl-6.de/