Select Code to Download

my $str      = 'Fsih my test variable is fsihd or is it gfsih or gfsih
+d fsih';
#                                        1111            2222     3333
+  4444
...
$str =~ s/\G(.*?)$regexp/$1$replace/;

print("$str\n");