#!/usr/bin/perl

foreach(@ARGV) {
    open (FILE, "$_") ;
    while(<FILE>){
	if ( $_ =~  /TIME=/ ) {
	    s/TIME=// ;
	    print "$_" }
	elsif ( $_ =~  /Thermal energy/ ) {
	    s/Thermal energy                      =// ;
	    print "$_" }
	elsif ( $_ =~  /Kinetic energy/ ) {
	    s/Kinetic energy                      =// ;
	    print "$_" }
	elsif ( $_ =~  /Total energy/ ) {
	    s/Total energy                        =// ;
	    print "$_" }
	elsif ( $_ =~  /Thermal to Kinetic/ ) {
	    s/Thermal to Kinetic                  =// ;
	    print "$_" }
	elsif ( $_ =~  /Viscous dissipation/ ) {
	    s/Viscous dissipation                 =// ;
	    print "$_" }
	elsif ( $_ =~  /Dissipation via numerical viscosity/) {
	    s/Dissipation via numerical viscosity =//;
	    print "$_" }
    }
    close(FILE)
}