Untitled

#!/usr/bin/perl

use warnings;
use strict;

my $text;

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

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

print "$newtext\n";