perl -wE 'sub x{say qq|X Called|}; x substr(undef,0,4)'