Anonymous

#!/usr/bin/perl

use warnings;
use strict;

my $text;

while (my $line = <STDIN>) {
        $text = $text . $line;
}

$text =~ /[-]+([\w.:]+)[-]+/;

print "$text\n";