quotemeta \Q
#!/usr/bin/perl use strict; use warnings; my $string = 'foo ^bar baz'; my $regex = '^bar'; $string =~ s/$regex//; print $string . "\n";
実行結果
foo ^bar baz
#!/usr/bin/perl use strict; use warnings; my $string = 'foo ^bar baz'; my $regex = '^bar'; $string =~ s/\Q$regex//; print $string . "\n";
実行結果
foo baz