誰も使う人いないと思うけど好きに使ってください。
既出のような気もするけど、、、まっいいか。

---
#!/usr/bin/perl

while (<>) {
# 「まったり」→「またーり」
s/(..)っ(..)(..)/$1$2ー$3/g;
s/(..)ッ(..)(..)/$1$2ー$3/g;

s/思います/思われ/g;
s/思っております/思われ/g;
s/ください/ｷﾎﾞﾝﾇ/g;
s/下さい/ｷﾎﾞﾝﾇ/g;
s/について/ってどうよ/g;
s/万歳/ﾏﾝｾｰ/g;

# たまに「ｺﾞﾗｧ!」を付けてみる。
s/。/ｺﾞﾗｧ!/g if rand > 0.9;

# たまに「(ﾜﾗﾀ」を付けてみる。
s/。/(ﾜﾗﾀ。/g if rand > 0.9;

# たまに荒してみる。
print "てゆーか >>1 ｷﾓｲ)\n" if rand > 0.99;

print;
}
---