> '-'ﾊｸられた腹いせですか？

$y = q( '-');
$y =~ s( '-')(( ,-,));
print "$yヽ ﾌｼｼ";

参考：2000/09/03(日)17時09分37秒