@lines = split /s+/, $t2;

##</code><code>##

@lines = split /\s+/, $t2;