Help for this page
CAS*CO*999*999.99~ LX*2~
SVC*HC:00003*999.99*999.9**1~
use warnings; use strict; ... close $fho; system( q(perl -nle "print if /SE\Q*\E3841/ .. /IEA\Q*\E/" "cr835.txt" +) );