http://www.perlmonks.org?node_id=665290


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

Thanks, GF.
You've been a great help time and again. :)
C(qw/74 97 104 112/);sub C{while(@_){$c**=$C;print (map{chr($C!=$c?shift:pop)}$_),$C+=@_%2!=1?1:0}}