C:% perl
$giko = 'ギコハハハ';
$match = 'ハ'
print("ギコハハハ") if ($giko =~ m/$match/)
^Z   ←これは Ctrl + Z な。
ギコハハハ