#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

my $text = 'text link.ru';
my ($link) = $text =~ m!([a-z0-9:/.]+\.[a-z]+)!i;
print $link, "\n";