Help for this page
while (<REPORT>) { s/^\s+//; # get rid of leading whitespace s/\s+$//; # get rid of trailing whitespace ... if (/(Cosmetics|Function)/) { s/.+_X_(Pass|Fail).*/$1/; # remove all but Pass or Fail }
s/Failure Detail - //g; # must come before next regexp s/³(Pass|Fail)/³$1³/; # Pass -> Pass³, Fail³ -> Fail³³ (implied :)