Select Code to Download

#! /usr/bin/perl -w

...
$teststring=~ s/$pattern3/hi$1/g;  ## ERROR, WHY???

print $teststring;