print "$output\n";

##</code><code>##

$array[$i] =~ /(\d+)$/;