#!/usr/bin/perl -w
use strict;
$_ = "blah # blah";
s#blah
 #boog#gx;
print;