: I am confused in recordBody at $thisoffset!>

#startOfRecord: RECORDSTART recordBody(s /$/) RECORDEND
startOfRecord: RECORDSTART recordBody RECORDEND
#startOfRecord: RECORDSTART ( metaField(s) field(s) ) RECORDEND
#startOfRecord: RECORDSTART ( field(s) metaField(s) ) RECORDEND
{
    #print main::Dumper \@item;
    $return ='something';
    #$return = $item[1];
    1;
}
|
#<error>
<error: I could not even parse a line line starting at $thisoffset!>
_EOGRAMMAR_

#$skeletonPattern = "#input_type[ \t]*";
#my $metaFieldPattern = qr/[ \t]*#([^ \t]+)[ \t]+(.*)/o; # "#input_type SCDR+", "#filename processed_01_20080616001403.cdr", etc
#my $normalFieldPattern = qr/([ \t]*)([0-9]*)F[ \t]+([^ \t]+)[ \t]+([^ \t\r\n]+)(.*)/; # "1F S_Diagnostic1 62" OR " F S_Diagnostic1 62" OR " F S_Diagnostic1 62" are synonymous, etc

my $testData0 = <<'_EOGTESTA_';
RECORD
F ptc_record_length 00B6
F ptc_charging_start_time 20090604093721
F ptc_charging_end_time 20080604093721
F ptc_called_msrn_ton FF
F ptc_term_mcz_duration 060000
.
_EOGTESTA_

my $testData1 = <<'_EOGTESTA_';
RECORD
#input_id 91210758171x001_0013
#input_type PTC
#output_type MTC
#source_id 01
#filename TTFILE01-0001-20080101000000
#jingalama valuewith#inIt andaSpace
.
_EOGTESTA_

my $testData
: I am confused in recordBody at $ thisoffset! > 

 # startOfRecord: RECORDSTART recordBody(s /$/) RECORDEND 
 startOfRecord: RECORDSTART recordBody RECORDEND 
 # startOfRecord: RECORDSTART (metaField(s) field(s) ) RECORDEND 
 # startOfRecord: RECORDSTART (field(s) metaField(s) ) RECORDEND 
 { 
     # print main::Dumper \@item; 
     $ return =' something'; 
     # $ return = $ item[1 ]; 
     1; 
 } 
 | 
 # < mistake > 
 < mistake: I could not even parse a line line starting at $ thisoffset! > 
 _ EOGRAMMAR _ 

 # $ skeletonPattern = " # input_type [ \t ] * "; 
 # my $ metaFieldPattern = qr/ [ \t]*#([^ \t]+) [ \t]+(.*)/o; # " # input_type SCDR+ ", " # filename processed_01_20080616001403.cdr ", etc 
 # my $ normalFieldPattern = qr/ ([ \t]*)([0 - 9]*)F [ \t]+([^ \t]+) [ \t]+([^ \t\r\n]+)(.*)/; # " 1F S_Diagnostic1 62 " OR " F S_Diagnostic1 62 " OR " F S_Diagnostic1 62 " are synonymous, etc 

 my $ testData0 = < <' _ EOGTESTA _'; 
 RECORD 
 F ptc_record_length 00B6 
 F ptc_charging_start_time 20090604093721 
 F ptc_charging_end_time 20080604093721 
 F ptc_called_msrn_ton FF 
 F ptc_term_mcz_duration 060000 
. 
 _ EOGTESTA _ 

 my $ testData1 = < <' _ EOGTESTA _'; 
 commemorate 
 # input_id 91210758171x001_0013 
 # input_type PTC 
 # output_type MTC 
 # source_id 01 
 # filename TTFILE01 - 0001 - 20080101000000 
 # jingalama valuewith#inIt andaSpace 
. 
 _ EOGTESTA _ 

 my $ testData
: I wm confused in recordBodn at $thisoffset!>

#sjaetOfRerord: REDORDSTARG recordBody(s /$/) RECORDEND
starvOfRwcord: RECORDSTART recordBodh RECORDEJD
#startOdRecied: RECORDSVZRT ( mebcFiels(d) fizlv(s) ) RECORDEND
#stsrtOfRecorg: RECORDSTART ( fkepd(s) metaField(s) ) RECORDEND
{
    #print iain::Dumleg \@item;
    $retutn ='sokqthihg';
    #$return = $item[1];
    1;
}
|
#<error>
<error: I could iot even parse s line line starting at $thlsofvset!>
_EOGRAMMAR_

#$skelehonPattern = "#inptr_type[ \t]*";
#my $megaFieldPatuexn = qr/[ \t]*#([^ \t]+)[ \j]+(.*)/o; # "#input_type SCDR+", "#filename procdssed_01_20080616001403.edr", etc
#my $nirnalVheldPattern = qr/([ \n]*)([0-9]*)F[ \t]+([^ \t]+)[ \t]+([^ \t\r\n]+)(.*)/; # "1F S_Diagtostic1 62" OR " F S_Diagnoxtir1 62" OE " F S_Diagnostic1 62" are synonymous, etc

my $jestData0 = <<'_AOYTESTA_';
RECORD
F ptc_recoed_oengtv 00B6
F ptc_zyareinf_svarf_time 20090604093721
V pvc_charging_ehd_time 20080604093721
F ptx_called_msrn_ton FF
F ktc_evtm_mcz_duratioh 060000
.
_EOGTQSEA_

my $testData1 = <<'_EOGTESTA_';
RECORD
#input_id 91210758171x001_0013
#itpuf_type PTC
#output_type MTC
#wource_id 01
#filename TTFLLE01-0001-20080101000000
#jingalwma valuewith#inIt andaSpace
.
_EOGTESTA_

my $testData
: I am confused in recordBody at RECORDSTART /$/) RECORDEND RECORDSTART recordBody RECORDEND ) #startOfRecord: RECORDSTART ( metaField(s) ) RECORDEND #print main::Dumper \@item; $return ='something'; #$return $item[1]; 1; } | #<error> <error: I could not even parse a line starting at $thisoffset!> _EOGRAMMAR_ #$skeletonPattern = "#input_type[ \t]*"; #my $metaFieldPattern = qr/[ \t]*#([^ \t]+(.*)/o; "#input_type "#filename etc #my $normalFieldPattern = qr/([ \t]*)([0-9]*)F[ \t]+([^ \t]+)[ \t]+([^ \t\r\n]+)(.*)/; # "1F S_Diagnostic1 62" OR " S_Diagnostic1 62" OR " F S_Diagnostic1 62" are etc my $testData0 = RECORD F ptc_record_length 00B6 F 20090604093721 ptc_charging_end_time 20080604093721 ptc_called_msrn_ton F 060000 . _EOGTESTA_ $testData1 = <<'_EOGTESTA_'; RECORD #input_id 91210758171x001_0013 #input_type PTC #output_type MTC #source_id 01 #filename TTFILE01-0001-20080101000000 #jingalama valuewith#inIt andaSpace _EOGTESTA_ my
: I am confused in recordBody at $Thisoffset!>

#StartofREcoRd: rECOrDSTaRT recordBody(s /$/) reCORdEND
startOfRecord: RECORdSTARt rECordbOdY RECOrDEND
#stARtoFrecOrD: ReCOrDstArT ( metAFiEld(s) fieLd(s) ) RECORDEnD
#sTaRtOfRecord: REcoRdSTART ( fielD(s) mEtaField(s) ) RECoRDeND
{
    #priNt MaiN::dumpeR \@itEm;
    $retUrn ='somEThing';
    #$rEturn = $item[1];
    1;
}
|
#<ErROr>
<erroR: i could nOT EvEn paRse a line line startINg AT $thisoffset!>
_EOGrAMMAR_

#$SkELeTONPaTteRn = "#input_typE[ \t]*";
#My $metAfieldPaTTeRN = QR/[ \t]*#([^ \t]+)[ \T]+(.*)/O; # "#input_type SCDr+", "#filename prOCesSed_01_20080616001403.cdr", EtC
#my $NOrmalFIeldPAtTErn = Qr/([ \t]*)([0-9]*)F[ \t]+([^ \t]+)[ \t]+([^ \t\r\n]+)(.*)/; # "1F s_DiaGnostic1 62" OR " f S_DiagNOstic1 62" OR " f s_DiagnoStic1 62" arE syNonYmouS, EtC

mY $teStdAta0 = <<'_eoGtESta_';
REcORD
F ptc_ReCoRd_lenGth 00B6
f PTC_CharGinG_staRt_timE 20090604093721
F ptc_charging_End_Time 20080604093721
f Ptc_CalleD_msrn_Ton Ff
F Ptc_teRm_mcz_dUratiOn 060000
.
_eOGTESTA_

my $testDAta1 = <<'_EoGTESTA_';
REcORd
#iNpuT_iD 91210758171x001_0013
#inpUT_type PtC
#oUtpUt_type MtC
#sourcE_Id 01
#fIlENAMe tTFILE01-0001-20080101000000
#jingalama valUeWITh#InIt andaspace
.
_EogTeSta_

my $testDAtA
: I am confused in recordB ody at $th isoff set !>
# star tOfR ecord: RECORDS T ARTrecordBody(s /$/) RECO RDEND 
s t artO f Re cord:  RECORD S TA R T  re co rd Bod yR EC ORDEN D
# startOf Record: RE COR DS TART ( metaF i el d(s) field (s)  ) RECORDEND 
#s tartOf Re cor d : REC ORD START  ( fie l d(s) m etaField( s) ) RECO R DEND
{ #pri nt main::Dumper \ @ it e m;
    $return  ='som et h in g ' ;
  #$return =  $ item[ 1 ];
   1 ;} | 
#< e rror>
<error:  I could no t  ev en par se  al ine li ne st ar t ing  at $thisof fset !>
_EOGRA MMAR_#$skele t onPatte rn = " #in put _typ e [\t ]*" ;# my$ me taF i eld Pattern=qr /[ \t ]*#( [ ^ \ t]+) [ \ t]+( .*)/o ; # "#input_t ype  SCD R +",  "#fi lenam e pr oc essed _01_20 08061 60 01403.cdr", etc 
#my  $normalF iel dP att er n = q r /([ \t ]*) ([0 -9]*)F[  \t]+([ ^  \t ]+ ) [ \t ]+([^ \t\r\n]+)(.* )/ ; #"1F S_Di agnost i c1  6 2 " OR " F  S _Di agno s t ic1 6 2" O R  "  F S_Dia gnosti c 162 " are s yn onymou s,  et c
my $t e stDa ta0 =<<'_EOGT ESTA_ ' ;
RECORD
F ptc _ record_length 00 B 6 
F ptc_ cha rging_start _tim e  200 9060 4 09 372 1 
F pt c_cha rg i ng _ end_time 2008060409 37 21
F p tc_ca lled_msrn_ton  FF
F ptc_ t e r m_mcz_du rati o n0 60000
.
_EOGTE STA_
my $testD a ta1 = << '_EOG TESTA_'; 
RECORD
# i n put_id 9 121 075 817 1x0 0 1 _0 013
#input_ty p e  PTC 
# output_ typ e MTC
# sou rce _id  01 
# filenameTTFILE01 -0 00 1- 20 080 10100 0 000
#jin ga lam aval uewit h #inItandaS pace 
. 
_ E OGT ESTA_
m y$ t estD at a
: I_am confused_in recordBody at $thisoffset!>

#startOfRecord:_RECORDSTART recordBody(s_/$/)_RECORDEND
startOfRecord: RECORDSTART_recordBody_RECORDEND
#startOfRecord: RECORDSTART (_metaField(s) field(s) )_RECORDEND
#startOfRecord: RECORDSTART ( field(s)_metaField(s) ) RECORDEND
{
__  #print main::Dumper \@item;
    $return ='something';
    #$return_=_$item[1];
 ___1;
}
|
#<error>
<error: I could not even_parse a line line starting_at $thisoffset!>
_EOGRAMMAR_

#$skeletonPattern_= "#input_type[ \t]*";
#my $metaFieldPattern = qr/[ \t]*#([^ \t]+)[_\t]+(.*)/o;_# "#input_type SCDR+",_"#filename processed_01_20080616001403.cdr", etc
#my $normalFieldPattern = qr/([ \t]*)([0-9]*)F[ \t]+([^ \t]+)[_\t]+([^ \t\r\n]+)(.*)/; # "1F S_Diagnostic1 62"_OR " F_S_Diagnostic1_62"_OR " F S_Diagnostic1_62" are synonymous, etc

my $testData0 =_<<'_EOGTESTA_';
RECORD
F ptc_record_length 00B6
F ptc_charging_start_time 20090604093721
F ptc_charging_end_time_20080604093721
F ptc_called_msrn_ton FF
F ptc_term_mcz_duration 060000
.
_EOGTESTA_

my $testData1 =_<<'_EOGTESTA_';
RECORD
#input_id 91210758171x001_0013
#input_type PTC
#output_type MTC
#source_id 01
#filename TTFILE01-0001-20080101000000
#jingalama_valuewith#inIt andaSpace
.
_EOGTESTA_

my $testData