$ perl xxxyyyzzz.pl

checking 'First case'

checking '123456789second & third case'
A: 1234, 56789second & third case
B: 1234, 56789second & third case