http://qs1969.pair.com?node_id=665291


in reply to Re: Parsing Guassian '03 Log Files
in thread Parsing Guassian '03 Log Files

That's fantastic, thank you. I'll test and tinker with it when I get to the lab tomorrow, see if I can't devise some solution of my own given your guidance.
C(qw/74 97 104 112/);sub C{while(@_){$c**=$C;print (map{chr($C!=$c?shift:pop)}$_),$C+=@_%2!=1?1:0}}