C:\test\perl>perl tle.pl
ENVELOPEID 36
CUSTOMER_NAME 36
KUNDNAVN 36
ZIP_CODE 36
COUNTRY 36
FAKTURA 36
KONTRAKT 36
REGISTER 36
DATO 36
####
ENVELOPEID 5172986
CUSTOMER_NAME Acme Inc
KUNDNAVN BANANA AIRLINES
ZIP_CODE SE-971 74
..
##
##
use strict;
use warnings;
use 5.010;
my $file;
{
local $/;
$file = ;
}
while ($file =~ /TLE.*?FQName\W+'(.*?)'.*?'(.*?)'.*?(TLE)?/gs ) {
say "$1 $2";
}
__DATA__
.11893 ... TLE - Tag Logical Element 00033 D3A090 00000
|
|Fully Qualified Name Triplet 2 (x'02')
|- Type 11 (x'0B') Attribute GID
|- Format 0 (x'00') Character string
|- FQName 'ENVELOPEID'
|Attribute Value Triplet 54 (x'36')
|- '5172986'
.11894 ... TLE - Tag Logical Element 00059 D3A090 00000
|
|Fully Qualified Name Triplet 2 (x'02')
|- Type 11 (x'0B') Attribute GID
|- Format 0 (x'00') Character string
|- FQName 'CUSTOMER_NAME'
|Attribute Value Triplet 54 (x'36')
|- 'Acme Inc'
.11895 ... TLE - Tag Logical Element 00074 D3A090 00000
|
|Fully Qualified Name Triplet 2 (x'02')
|- Type 11 (x'0B') Attribute GID
|- Format 0 (x'00') Character string
|- FQName 'KUNDNAVN'
|Attribute Value Triplet 54 (x'36')
|- 'BANANA AIRLINES'
.11896 ... TLE - Tag Logical Element 00033 D3A090 00000
|
|Fully Qualified Name Triplet 2 (x'02')
|- Type 11 (x'0B') Attribute GID
|- Format 0 (x'00') Character string
|- FQName 'ZIP_CODE'
|Attribute Value Triplet 54 (x'36')
|- 'SE-971 74'
.11897 ... TLE - Tag Logical Element 00025 D3A090 00000
|
|Fully Qualified Name Triplet 2 (x'02')
|- Type 11 (x'0B') Attribute GID
|- Format 0 (x'00') Character string
|- FQName 'COUNTRY'
|Attribute Value Triplet 54 (x'36')
|- 'SE'
.11898 ... TLE - Tag Logical Element 00030 D3A090 00000
|
|Fully Qualified Name Triplet 2 (x'02')
|- Type 11 (x'0B') Attribute GID
|- Format 0 (x'00') Character string
|- FQName 'FAKTURA'
|Attribute Value Triplet 54 (x'36')
|- '5643452'
.11899 ... TLE - Tag Logical Element 00032 D3A090 00000
|
|Fully Qualified Name Triplet 2 (x'02')
|- Type 11 (x'0B') Attribute GID
|- Format 0 (x'00') Character string
|- FQName 'KONTRAKT'
|Attribute Value Triplet 54 (x'36')
|- '90234342'
.11900 ... TLE - Tag Logical Element 00031 D3A090 00000
|
|Fully Qualified Name Triplet 2 (x'02')
|- Type 11 (x'0B') Attribute GID
|- Format 0 (x'00') Character string
|- FQName 'REGISTER'
|Attribute Value Triplet 54 (x'36')
|- 'AF89729'
.11901 ... TLE - Tag Logical Element 00028 D3A090 00000
|
|Fully Qualified Name Triplet 2 (x'02')
|- Type 11 (x'0B') Attribute GID
|- Format 0 (x'00') Character string
|- FQName 'DATO'
|Attribute Value Triplet 54 (x'36')
|- '16.12.13'