#!/usr/bin/env perl
use warnings;
use strict;

for ( 0..500 ) {
	for ( 0..1000 ) {
		(my $x = "x") =~ s/\x{2122}/(TM)/sg;
	}
	system("ps -hovsz $$");
}