Select Code to Download

my $number_of_crds = 0;
while(<INPUT_FILE>) {
...
    ...
    ...
}

if ( $_ =~ /callIdentificationNumber\s+:\s+\'(.+)\') {
    print "callIndentificationNumber: $1\n";
}