No, <DATA> reads from the filehandle *DATA and returns what it has read (delimited by $/).

What you want is \*DATA, or locally undef $/ and use parse_string instead of parse_fh