#!/usr/bin/perl

__DATA__
s/huh/ttt/g
for (1..9) {  print "huhu"}