<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl

foreach(@ARGV) {
    open (FILE, "$_") ;
    while(&lt;FILE&gt;){
	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)
}
</pre></body></html>