if $currentrecord =~ m/^field2(.*)\nfield3/mi {
    $field2data = $1;
}