#! perl
use strict;
use warnings;
use feature 'say';

{
    local $/ = 'TLE - Tag Logical Element';

    while (<DATA>)
    {
        say "$1 $2" if /FQName\s+'(.*?)'.*\|-\s+'(.*?)'/s;
    }
}

__DATA__
<as before>