#!perl -w
use strict;

my $data= <<EOM;
firstline
secondline
data_hereDATA THAT IS CAPTURED
EOM

$_= $data;
my($result)= /^data_here(.+)/m;
print $result; # DATA THAT IS CAPTURED