$/=undef;
$t=<FILEHANDLE>;
$t =~ s/^:::(.*):::/$1/;
print $t;