c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my $s = qq{DoGcat\n    42\n    birdfIsH};
 dd $s;
 print qq{<<$s>>};
 ;;
 print qq{LUE == '$1'} if $s =~ /(?<=dog) .* (\d+) .* (?=fish)/sxi;
"
"DoGcat\n    42\n    birdfIsH"

<<DoGcat
    42
    birdfIsH>>
LUE == '2'