my $pattern = "foo\sbar";
my $replace = "FirstUniversalCyberneticKeneticUltramicroProgrammer";
$pattern =~ s#$pattern#$replace#;