Backreference and Substitution problems

[Krishna Srinivasan]

$foo = "This is a BlueTooth device";
$bar = "bluetooth";

print $foo . "\n";

$foo =~ s/$bar/<$1>/ig;
print $foo . "\n";

The output I expect is "This is a <BlueTooth> device"
But I get "This is a <> device"

Where am I going wrong?

Krishna.

 

[Anno Siegel]

$foo = "This is a BlueTooth device";
$bar = "bluetooth";

print $foo . "\n";

$foo =~ s/$bar/<$1>/ig;
print $foo . "\n";

The output I expect is "This is a <BlueTooth> device"
But I get "This is a <> device"

Where am I going wrong?

You're not capturing the search result, so $1 is undefined.

$foo =~ s/($bar)/<$1>/ig;

Anno