my $lineterm = $/;
$/ = '';
my $thingy = $_ =~ /:::(.*):::/;
$/ = $lineterm;